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

Question

Романя

22 сентября, 10:05

+4

Ответы (2)

Знаете ответ?

Даша · Answer 1

Var a, b, c:integer;

begin

randomize;

a:=1;

b:=random (1,7) ;

c:=b+2;

writeln (a, b, c) ;

end.

Юния · Answer 2

Var a, b:byte;

Begin

Randomize;

a:=random (7) + 1;

b:=a+2;

Write (1, a, b)

End.