Pascal... Найти все трехзначные числа-палиндромы. Задача с использованием repeat...

April 2021 2 41 Report

Pascal...
Найти все трехзначные числа-палиндромы.
Задача с использованием repeat (обязательно)

xerex21 Var i:integer;
begin
i :=100;
repeat
if (i mod 10 = i div 100) then
print(i);
i:=i+1;
until (i>999);
end.

1 votes Thanks 0

NaaMan Решение, с помощью которого не придется перебирать 800 чисел подряд:
var
i, j : Integer;
begin
i := 1;
repeat
j := 0;
repeat
writeln(i, j, i);
j := j + 1;
until j = 9;
i := i + 1
until i = 9
end.

1 votes Thanks 0

Answers & Comments

napryazhenie na klemmah akkumulyatora pri ego zaryadke tokom 6a ravno 9v a pri razr

v kvadrate avsd vzyata tochka o tak chto ugol oad raven uglu oda 15 gradusov naj

vychislit logarifmicheskoe neravenstvo

tri provodnika r1 r2 r3 vklyucheny v cep posledovatelno v kakom iz provodnikov

ustanovite sootvetstvie mezhdu davleniem idealnogo gaza pri postoyanno temperatur

molk1188a7de0df699c0860ccb60e57c101c 7526

5)...

najti vse znacheniya h pri kotoryh funkciya prinimaet polozhitelnye znacheniya

рекомендуемые вопросы

Helpful Links

Helpful Social