как сделать вместе чтобы работало?
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.
Ответы
Ответ дал:
1
Вот смывмывмифииыиывиывиывиывфифыи
Приложения:
![](https://st.uroker.com/files/7e9/7e9233061cdff4b34fa938d385608ea5.png)
МультаиНазар:
Чё то с символами не то
Ответ дал:
0
Чекай скрин вроде так :D
Приложения:
![](https://st.uroker.com/files/7b9/7b9c087423247ba2372c213cb6ff58be.png)
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад