Регистрация
lera10u
30.11.2021 10:29
Информатика
Есть ответ 👍

ИЗ ВСЕ ЧЕТЫРЕХЗНАЧНЫХ ЧИСЕЛ ВЫВЕСТИ ТОЛЬКО ТЕ У КОТОРЫХ СУММА ПЕРВЫХ ДВУХ ЦИФР РАВНА СУММЕ ПОСЛЕДНИХ ДВУХ ЦИФР

162
494
Посмотреть ответы 2

Ответы на вопрос:

alinamironova21
alinamironova21
4,7(26 оценок)

var

Count, i: Integer;

Summa: LongInt;

begin

Summa:=0;

writeln('Четырехзначные числа по условию: ');

for i:=1000 to 9999 do

if ((i div 100) mod 10 + (i div 1000) mod 10) =

((i mod 10) + (i div 10) mod 10) then

begin

write(i, ' ');

Summa:=Summa + i;

Count:=Count + 1;

end;

writeln;

writeln('Сумма всех чисел: ', Summa);

writeln('Кол-во: ', Count);

end.

Djəñįfəŕ
Djəñįfəŕ
4,4(54 оценок)
Program z1;   var x,y,z,max,min,u: integer; begin  write('введите x   =   ');   readln(x);   write('введите y =   ');   readln(y);   write('введите z =   ');   readln(z);   if (x> y) then if (x> z) then max: =x                          else max: =z            else if (y> z) then max: =y                          else max: =z;   if (x< y) then if (x< z) then min: =x                          else min: =z            else if (y< z) then min: =y                          else min: =z;   u: =max+min;   writeln('u = ',u) end.

Популярно: Информатика