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

rassvet1123 rassvet1123    2   01.09.2019 04:20    2

Ответы
Дмыч Дмыч  03.08.2020 13:24
Var a,b:byte;
Begin
Randomize;
a:=random(7)+1;
b:=a+2;
Write(1,a,b)
End.
ПОКАЗАТЬ ОТВЕТЫ
NoName2op NoName2op  03.08.2020 13:24
Var a,b,c:integer;
begin
randomize;
a:=1;
b:=random(1,7);
c:=b+2;
writeln (a,b,c);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика