Предмет: Информатика,
автор: Zloystalkerr
100 БАЛЛОВ ЗАДАЧА !!!!!!!!!!!!!!!!!!СРОЧНО ИЗ ВСЕ ЧЕТЫРЕХЗНАЧНЫХ ЧИСЕЛ ВЫВЕСТИ ТОЛЬКО ТЕ У КОТОРЫХ СУММА ПЕРВЫХ ДВУХ ЦИФР РАВНА СУММЕ ПОСЛЕДНИХ ДВУХ ЦИФР
noobie1:
сложно ооооооо
Ответы
Автор ответа:
1
Ответ:
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.
Похожие вопросы
Предмет: Английский язык,
автор: dariastieponien
Предмет: Русский язык,
автор: shabangalievaa
Предмет: Українська література,
автор: СашуняЛитвинчук
Предмет: Английский язык,
автор: Nastya17141
Предмет: Русский язык,
автор: Аноним