Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
карим113
06.03.2022 11:27 •
Информатика
Найдите количество четных чисел ,диапазоне от 20 до 100.
Показать ответ
Ответ:
troffpolina2003
06.10.2020 05:53
1. Школьный вариант в стиле ТурбоПаскаль 1983г.
var
i,k:integer;
begin
k:=0; i:=20; { четное }
while i<=100 do begin
k:=k+1; i:=i+2
end;
Writeln('k=',k)
end.
Результат
k=41
2. Современный Паскаль
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('k=',Range(20,100,2).Count)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Tommh
01.12.2020 05:20
Определите значение переменной р после выполнения следующего фрагмента программы: m: =13; n: =21; n: =2*m-n; if m =n then p: =m+n else p: =4-m*n; , с по информатике,...
татарочка21271
12.07.2021 18:38
Переведите целые числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную а) 56 б) 32 в) 120...
Mafiy12
02.09.2021 07:24
повідомлення займає 4 сторінки по 40 стрічок та містить 7200 байт інформації. скільки символів в стрічці, якщо при складанні цього повідомлення використовували...
герман78
08.11.2021 09:03
Создайте блок схему следующей программы . x=int(input())a,b=0,0while x 0:a=a+1b=b+x%10x=x//100print(a)print(b) ...
юра982
17.11.2020 23:03
Який вийде результат роботи прогрпми print(7 // 2)...
dyba2003
01.03.2022 11:09
Надо.действие рисование точек и кривых линий какая действие рисование прямых линии какая действие рисование фигур какая действие заливка какая действие стирание...
упоротаялялька
01.02.2020 05:31
Установите соответствие между предложениями и их синтаксическими характеристиками...
neoguy228
24.04.2020 10:24
Я сижу на речке,ловлю пескарей .разбор номер решить?...
gggnnn
24.04.2020 10:24
БИОЛОГИЯ КТО ЗНАЕТ и 14 номера ...
Kirill12345qwert
24.04.2020 10:24
Чему равна длина алюминиевого провода сопротивлением 4,5 Ом и площадью поперечного сечения 50мм²?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i,k:integer;
begin
k:=0; i:=20; { четное }
while i<=100 do begin
k:=k+1; i:=i+2
end;
Writeln('k=',k)
end.
Результат
k=41
2. Современный Паскаль
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('k=',Range(20,100,2).Count)
end.