Вопрос по информатике:
Как их сделать вместе чтобы работало 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.
- 22.01.2016 14:20
- Информатика
- remove_red_eye 12045
- thumb_up 35
Ответы и объяснения 1
- 23.01.2016 01:14
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.