Напишите программу, вводящую трехзначное число, первая цифра которого равна единице, вторая принадлежит промежутку от 1 до 7, а третья на две единицы больше второй.

Question

Таиска

15 августа, 13:36

+5

Ответы (2)

Знаете ответ на вопрос?

Памфил · Answer 1

Var a, b:byte;

Begin

Randomize;

a:=random (7) + 1;

b:=a+2;

Write (1, a, b)

End.

Евгения · Answer 2

Var a, b, c:integer;

begin

randomize;

a:=1;

b:=random (1,7) ;

c:=b+2;

writeln (a, b, c) ;

end.