Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Bogdasha06102015
22.06.2021 14:37 •
Информатика
Мне в школе по информатике задали написать простую или не программу на языке pascal. за неимением компьютера скачал на самсунг pascalgui. найти program code ; var 2145: string; begin write ('введите код 2145: '); read(2145) write('molotok') end.
Показать ответ
Ответ:
Hujaev01
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 оценок)
Ответ:
Fazzika
05.10.2020 03:02
Program z1;Var a:integer;beginwrite ('Введите код 2145:');read(a);writeln('molotok'); end.
В pascal abc написал, все работает)) Можно чуть усложнить, через if сделать.
0,0
(0 оценок)
Популярные вопросы: Информатика
marina999mmm
24.03.2020 11:35
Вопрос 2 Имеется два запоминающих устройства: одно ёмкостью 2048 Кбайт, другое – 2048 байт. Укажите суммарную ёмкость обоих устройств в Кбайтах....
nastyaplokhovanastya
17.01.2023 07:02
Для кодирования цвета фона страницы Интернета используется атрибут bgcolor = «#», где в кавычках задаются шестнадцатеричные значения интенсивности цветовых компонент...
mymrina05
25.01.2023 05:35
5. Рассчитайте еженедельную выручку цирка, если известно: - количество проданных билетов каждый день - цена взрослого билета - 15 руб. Постройте диаграмму (график)...
KotBosilio
21.12.2020 08:41
Выполнить арифметические операции в разных системах счисления 235046+255346 ЕА9515+34Е915 511046–252356 Е09515–34Е915 101012·1012 101012:1012 11102·1012–100102+10012:112...
hfdgddcju
19.03.2023 13:59
Желательно на С++ Учащиеся Хайтек-квантума Поликарп, Монокарп и Изокарп готовятся к выставке. Сегодня они вырезали детали своей совместной выставочной работы на...
ketium2oo5
18.06.2020 16:24
Решите задание по информатике с объяснением. Буду очень сильно благодарен...
margo2606
13.05.2021 11:41
Миша заблудился в лесу и пытается выйти из него. Он проходит A шагов на север, затем B шагов на восток, затем C шагов на юг, D шагов на запад, после чего повторяет...
котик11585896
30.08.2022 21:03
Задача 14. Дан алгоритм нахождения ⎪⎧≤≤+ +=0,1 2xxxxyодного из значенийфункции ⎨ − 1,1410,12xx (рис. 29). Какое значение переменная y бу ь на выходе блок-схемы,...
Victoria119900
10.04.2021 13:42
Решить всё что на фотографиях...
skZ1
09.09.2020 22:38
Что делает программный блок? for i := 1 to N-1 do begin m:=i; for j := i+1 to N do if mas[j] mas[m] then m:=j; r := mas[i]; mas[i] := mas[m]; mas[m] := r; end; 1Сортирует...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var s: string;
begin
write('Введите код: ');
read(s);
if s='2145'
then write('molotok') else writeln('no');
end.
Пример:
Введите код: 2145
molotok
В pascal abc написал, все работает)) Можно чуть усложнить, через if сделать.