Question

1. Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. Найти такие числа (например, 625: 625^2=390 625).

 

2. Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 или 8.

 

 Решить в Паскале

Answer 1

2)

 

Program Numbers;
Var
    i: integer;
    sum: integer;
Begin
    
    sum := 0;
        
    i := 21;
    while i<=99 do
    begin
        if (i mod 10 = 2) or (i mod 10 = 4) or (i mod 10 = 8) then
            sum := sum + i;
        
        i := i + 3;
    end;
    
    WriteLn(sum);
    
    ReadLn;
End.