Задачу №1 лучше сделать через while:
| Код |
var i, sum:integer;
begin
i:=105; //первое трехзначное число, делящееся на 7
//однако, чтобы не было "хардкода", лучше сделать следующим образом:
//i:=(100 div 7 + integer(100 mod 7 <> 0))*7; //вычисляем первое трехзначное число, делящееся на 7
while (i <= 999) do begin
inc(sum, i);
inc(i, 7);
end;
writeln('Сумма трехзначных чисел, кратных 7: ', sum);
end.
|
Задача №2 - вероятнее всего автор имел ввиду возведение в квадрат, и в такой последовательности возможны четные числа. Остается еще неясным, с какого индекса начинается последовательность - предположим, что с 1. Тогда решение будет такое:
| Код |
var i, count, x:integer;
begin
for i:=1 to 10 do begin
x:=i*i-1;
write(x,' ');
if (x mod 2) = 0 then inc(count);
end;
writeln;
writeln('Количество четных: ', count);
end.
|
|