Или так: это проще, если вы не проходили условие.
Var i:integer;
Begin
write('Четные числа: ');
for i:=2 to 99 do begin
write(i,' ');
i:=i+1;
end;
End.
Если microsoft office 2003 года, то ppt, а если 2007, то pptх
1. <span>Шифрование данных
2. </span><span>Используйте надежные пароли
3. </span><span>Двухфакторная аутентификация
4. </span><span>Обезопасить вашу сеть
5. </span><span>Антивирусное программное обеспечение</span>
1) 5 9 13 17 21 25 29 33 37 41 45 49
var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемое
begin //начало
sum := 0; i := 1; s := 5; //первое слогаемое = 5
repeat
sum := sum + s; //к сумме прибавляем слагаемое
s := s + 4; //увеличиваем слогаемое
i := i + 1; //увеличиваем кол-во слогаемых
until (sum = 324); //выход когда сумма равна 324
writeln ('Слогаемых: '); // выводим кол-во слогаемых
write (i);
end. //конец