Составить алгоритм, который определяет сумму четных
10-11 класс
|
чисел из трех введенных a,b,c. Если таких нет, то вывести
сообщение об этом. (Можно с объяснением пожалуйста)
var a,b,c,s:integer;//объявляем переменные
begin s:=0;//инициализируем s
readln(a,b,c);//вводим a,b,c
if a mod 2=0 then s:=s+a//если а делится на 2 без остатка то прибавляем а
else if b mod 2=0 then s:=s+b//то же с b
else if c mod 2=0 then begin s:=s+c;//то же с c
writeln(s);//вывод s
end
else writeln('Нет');//если нет чётных выводим сообщение
end.
var a,b,c,d:integer;
begin
writeln('Введите числа');
readln(a,b,c);
if (a mod 2=0) then d:=a;
if (b mod 2=0) then d:=d+b;
if (c mod 2=0) then d:=d+c;
if d<>0 then writeln('Сумма чётных чисел равняется ',d)
else writeln('Нет чётных чисел');
end.
Другие вопросы из категории
Читайте также
использования. Пример: Введите число: 100 сумма = 5050
"5":
Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.
28 15 10
Наибольшее число: 28
2)Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.
Пример:
Введите число:
100
Сумма = 500
Буду очень признателен за помощь.
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
имеющейся суммы . Составить программу,которая определяет сумму вклада через n месяцев