Как сделать вместе чтобы работало? var s: string; begin writeln('как вас зовут? '); write('введите свое имя и нажмите -> '); read(s); write(', ',s); end. uses crt; var a,i: byte; s: real; begin clrscr; for i: =1 to 4 do begin writeln('vvod'); readln(a); if a mod 5=0 then writeln('число ',a,' кратно 5 ') else writeln('число ',a,' не кратно 5') end; end.

iwaly2009 iwaly2009    3   17.09.2019 19:40    0

Ответы
Ника65790 Ника65790  07.10.2020 22:31
Вот         смывмывмифииыиывиывиывиывфифыи
Как сделать вместе чтобы работало? var s: string; begin writeln('как вас зовут? '); write('введите с
ПОКАЗАТЬ ОТВЕТЫ
nevidomskyamarg nevidomskyamarg  07.10.2020 22:31
Чекай скрин вроде так :D
Как сделать вместе чтобы работало? var s: string; begin writeln('как вас зовут? '); write('введите с
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика