Напишите программу, вводящую трехзначное число, первая цифра которого равна единице, вторая принадлежит промежутку от 1 до 7, а третья на две единицы больше второй.
какой язык?
Var a,b,c:integer; begin randomize; a:=1; b:=random(1,7); c:=b+2; writeln (a,b,c); end.
Ваша программа даже не скомпилируется...
а так? все готово!
Var a,b:byte; Begin Randomize; a:=random(7)+1; b:=a+2; Write(1,a,b) End.
Что неправильно - сказать не сможете
Например надо было write ('1',a,b);
Вы считаете, что есть какая-то разница?))
XD не будет выводиться 1 и без ; программа выдаст ошибку!!!
В Turbo, Free, ABC и ABC.NET ошибку не выдаёт. Вы, быть может, на Delphi проверяете?
ABC
Скопируйте программу и убедитесь - всё правильно работает.
у меня - нет
крч мне повиг, я только в 6 классе
Вижу, и с логикой, и с русским языком, и с Паскалем у Вас проблемы.. Ладно, поФиг:D