Регистрация
frostdog0609
14.02.2023 23:08
Информатика
Есть ответ 👍

Как их сделать вместе чтобы работало 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. и var s: string; begin writeln('как вас зовут? '); write('введите свое имя и нажмите -> '); read(s); write(', ',s); end.

158
275
Посмотреть ответы 2

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

мопс173
мопс173
4,6(54 оценок)
Апричём тут программа на нахождения кратности чисел и программа которая в которой только вводы? скиньте мне ваше условия и я вам напишу программу
dance7
dance7
4,6(79 оценок)
Язык: pascal abc program name; var a, b, c, d: integer; begin readln(a, b, c) ; d: = a+b+c; if d = 0 then begin d: = a+b; writeln(d) end else writeln('сумма трех чисел равна ', d) end.

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