Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
alsumadiarova
25.02.2022 00:31 •
Информатика
Программа паскаль дано 3 числа. сколько из них двузначных?
Показать ответ
Ответ:
Armatod
02.10.2020 09:53
Var a,i,s:integer;
begin
writeln('Введите числа: ');
s:=0;
for i:=1 to 3 do begin
readln(a);
if (a>99) and (a<1000) then s+=1;
end;
writeln('Кол-во двузначных: ',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alsu1401
28.04.2021 14:43
3. Пусть W1 строка, W2 подстрока Укажите, какая команда записана правильно: 1. Insert (W2,W1,6); 2. Insert (W1,W2, 6); 3. W1:=Copy(W2, 4, 8);...
QuellTT
11.10.2021 09:44
Информатика 3 сынып презентацияға ақпаратты қайдан аламыз?? ...
миша741
02.06.2020 09:55
написать программу которая генерирует три последовательности случайных чисел и вычисляет среднее арифметическое каждой последовательности (в кумире)...
mynigga49
20.04.2021 05:08
6. В языке запросов поискового сервера для обозначения логических операций «ИЛИ» используется символ «|», а для обозначения логической операции «И» — символ «&»....
Nonna7229
01.03.2023 09:44
1. запишите число в развернутой форме: 85а3,7с416. 2. выполните перевод чисел из одной системы счисления в другую: а) 589,2610 – в двоичную, восьмеричную, шестнадцатеричную...
аы437
30.03.2022 11:22
Какие программы средства относят к свободно распространяемым программ ?...
lina5555555
05.04.2022 23:58
По введеному значению переменной x вычислить значение функции пасаль ...
aldyman
15.05.2021 12:03
Информацию, отражающую истнное положение дел, как ее называют 1-понятной 2-достоверной 3-объективной 4-полной...
anay3
15.05.2021 12:03
Игра «finecraft» требует для установки на жёсткий диск 2 гбайт свободного места. на жёстком диске сейчас 700 мбайт свободного места. а) какое пространство необходимо...
asdsssssssssss124
01.09.2020 08:45
Твір на тему чому нас навчає климко Григір Тютюник...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите числа: ');
s:=0;
for i:=1 to 3 do begin
readln(a);
if (a>99) and (a<1000) then s+=1;
end;
writeln('Кол-во двузначных: ',s);
end.