Вопрос школьника по предмету Информатика
Найдите количество четных чисел ,диапазоне от 20 до 100.
Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей
1)однажды мы с другом пошли на речку.-Так я на учился плавать .2)Утром я достал из почтового ящика необычный конверт.-Думаю,я никогда не забуду этот полет на воздушном шаре .3)Как-то вечером я включил компьютер,чтобы поиграть.-С тех пор я не играю в компьютерные игры .4)Ночью я неожиданно проснулся от странного звука.-Теперь я крепко сплю по ночам.5)Тем утром я ,как обычно,шел в школу.-Так я убедительности,что дорогу нужно переходить только по переходу .
1 сумму длин всех его ребер
2 площадь поверхности параллелепипеда