-
Вопрос по информатике:
Помогити плииииз:3Даю 40 балов
Напишите программу, которая в последовательности целых чисел находит сумму чётных чисел в диапазоне
от 5 до 25. Программа получает на вход целые числа, количество введённых чисел неизвестно,
последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в
последовательность).
-
Автор:
ryann
-
-
Ответ:
Просто на будущее - есть цикл с постусловием (чтобы не писать два раза readln):repeat {блок операторов} until {условие};Ответ:
Program n1;var a,sum: integer;beginsum:=0;readln(a);while a<>0 do beginif (a>=5) and (a<=25) and (a mod 2=0) then sum:=sum+a;readln(a);end;writeln(sum);end.
-
Вопрос по информатике:
С клавиатуры ввели число. Определить, каких цифр в нем больше: четных или нечетных.
Помогите!-
Ответов: 1
-
-
Вопрос по информатике:
Составьте блок-схему квадратного уравнения через теорему Виета-
Ответов: 1
-
-
Вопрос по информатике:
Файл размером 1.5Mb передается по сети со скоростью 1Mbit/sec.Сколько времени в секундах потребуется для передачи всего файла?-
Ответов: 1
-
-
Вопрос по информатике:
3) Сделать программу, которая сравнивает два числа и выводит сообщение с информацией о том какое число больше, и на сколько больше. Даю 99 БАЛОВ-
Ответов: 1
-