ПАСКАЛЬ: Найти все четырехзначные числа у которых сумма крайних цифр равна сумме средних цифр.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Кенес
Pascal:
program abc;
uses crt;
var i:integer;
begin
clrscr;
for i:=1000 to 9999 do
begin
if ((i div 1000)+(i mod 10)) = ( ((i div 100) mod 10)+((i mod 100)div 10))
then
if ((i mod 27)=0) and ((i mod 6)=0) then
writeln(i);
end;
end.
program abc;
uses crt;
var i:integer;
begin
clrscr;
for i:=1000 to 9999 do
begin
if ((i div 1000)+(i mod 10)) = ( ((i div 100) mod 10)+((i mod 100)div 10))
then
if ((i mod 27)=0) and ((i mod 6)=0) then
writeln(i);
end;
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
