Question

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

Answer 1

Var a,b:byte;
Begin
Randomize;
a:=random(7)+1;
b:=a+2;
Write(1,a,b)
End.

Answer 2

ABC

Answer 3

Скопируйте программу и убедитесь - всё правильно работает.

Answer 4

у меня - нет

Answer 5

крч мне повиг, я только в 6 классе

Answer 6

Вижу, и с логикой, и с русским языком, и с Паскалем у Вас проблемы.. Ладно, поФиг:D

Answer 7

Var a,b,c:integer;
begin
randomize;
a:=1;
b:=random(1,7);
c:=b+2;
writeln (a,b,c);
end.

Answer 8

Ваша программа даже не скомпилируется...

Answer 9

а так? все готово!