проверяем все двузначные нечётные числа, делящиеся нацело на 3 и выявляем наименьшее из них, имеющие остаток 4 при делении на 5:
15; 21; 27; 33; <u> </u><u>39 </u> ...
ответ 39
Mod - взятие остатка от деления (35 mod 10 == 5); div - взятие целой части от деления (35 div 10 == 3). Пишу сразу заполненные таблицы:
1) а = 23
p s p>0
23 0 true
2 3 true
0 5 false => s = 5
2) a = 32
p s p>0
32 0 true
3 2 true
0 5 false => s = 5
3) a = 109
p s p>0
109 0 true
10 9 true
1 9 true
0 10 false => s = 10
<span>Для ASCII, windows-1251, koi-8, dos-866 - один символ = 1 байт</span>
//A lvl
var
i,sum: integer;
begin
i := 20; sum:=0;
while (i < 100) do
begin
inc(sum,i);
inc(i);
end;
Writeln(sum);
end.
// B lvl
var
i: integer;
sum:real;
begin
i := 1; sum:=0;
while (i <= 10) do
begin
sum := sum + 1 / i;
inc(i);
Writeln(sum);
end;
Writeln(sum);
end.