ПОЖАЛУЙСТА!!!Составьте программу паскаль по этой схеме!!!20 баллов!!!!

Question

ПОЖАЛУЙСТА!!!Составьте программу паскаль по этой схеме!!!20 баллов!!!!

---

Answer 1

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.

Comments

Спасибо огромное!!!!

---

Пожалуйста)

---

Здравствуйте! Вы сможете мне помочь с информатикой 7 класс, алгоритмы? Если да, то я могу добавить задание

---

Ну давайте, посмотрим.

Answer 2

На 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.

Comments

Здравствуйте! Вы сможете мне помочь с информатикой 7 класс, алгоритмы? Если да, то я могу добавить задание