В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
AkvaH2O
AkvaH2O
29.02.2020 01:53 •  Информатика

Мне в школе по информатике задали написать простую или не программу на языке pascal. за неимением компьютера скачал на самсунг pascalgui. найти program code ; var 2145: string; begin write ('введите код 2145: '); read(2145) write('molotok') end.

Показать ответ
Ответ:
yyyye
yyyye
05.10.2020 03:02
Program code;
Var s: string;
begin
write('Введите код: ');
read(s);
if s='2145'
 then write('molotok') else writeln('no');
end.

Пример:
Введите код: 2145
molotok
0,0(0 оценок)
Ответ:
плаг
плаг
05.10.2020 03:02
Program z1;Var a:integer;beginwrite ('Введите код 2145:');read(a);writeln('molotok'); end.

В pascal abc написал, все работает)) Можно чуть усложнить, через if сделать. 
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота