Паскаль! Решить задачу циклом с предусловием!! ! Спасибо большое.

Question

Дано натуральное число n a1,a2, ..an. Определите количество членов последовательности являющиеся квадратами четных чисел.

Дано число n. Получить новое число удалив из него все цифры 3. Например ввели 1352 получить 152.

Светлана Абанина · Accepted Answer

y := 0; 
n := 1; 
while x > 0 do 
begin 
if x mod 10 <> 3 then 
begin 
y := y + (x mod 10) * n; 
n := 10 * n; 
end; 
x := x div 10; 
end; 
 
Спасибо и вам за ваше спасибо