Вопрос по информатике:
ПОЖАЛУЙСТА!!!Составьте программу паскаль по этой схеме!!!20 баллов!!!!
Пожаловаться
- 07.05.2018 11:56
- Информатика
- remove_red_eye 11661
- thumb_up 46
Ответы и объяснения 2
Program test;
var
a, b, k : integer;
begin
a := random(10) + 1;
b := random(10) + 1;
if a > b then
k := a * b
else
k := a + b;
writeln(a, ', ', b, ', ', k);
end.
var
a, b, k : integer;
begin
a := random(10) + 1;
b := random(10) + 1;
if a > b then
k := a * b
else
k := a + b;
writeln(a, ', ', b, ', ', k);
end.
Пожаловаться
- 08.05.2018 19:51
- thumb_up 14
На PascalABC.NET
begin
var (a,b):=(random(10)+1,random(10)+1);
var k: integer;
if a>b then k:=a*b
else k:=a+b;
writeln(a,b,k);
end.
begin
var (a,b):=(random(10)+1,random(10)+1);
var k: integer;
if a>b then k:=a*b
else k:=a+b;
writeln(a,b,k);
end.
Пожаловаться
- 09.05.2018 16:52
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы