Как их сделать вместе чтобы работало 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.

Question

Алекся

23 июля, 01:45

+3

Ответы (1)

Знаешь ответ?

Власий · Answer 1

А причём тут программа на нахождения кратности чисел и программа которая в которой только вводы? Скиньте мне Ваше условия и я Вам напишу программу