Регистрация
radkov02p08713
05.12.2021 05:21
Информатика
Есть ответ 👍

Лазарус, создать игру

279
368
Посмотреть ответы 2

Ответы на вопрос:

missvolkova2001
missvolkova2001
4,7(88 оценок)

кодом Free Pascal (object pascal). IDE Lazarus (screenshot)

помогитепожалуйста95
помогитепожалуйста95
4,5(53 оценок)
Var a: integer; begin repeat   readln(a);   if (a - (a div 10)*10) < > 7 then writeln ('неверно'); until (a - (a div 10)*10) = 7; writeln(a); end.

Популярно: Информатика