как их сделать вместе чтобы работало 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.
Ответы
Ответ дал:
0
А причём тут программа на нахождения кратности чисел и программа которая в которой только вводы? Скиньте мне Ваше условия и я Вам напишу программу
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
2 года назад