begin
//1 вариант
for var i := 0 to 100 do
if i.isEven then Print(i);
Println;
//2 вариант
foreach var x in Range(0, 100, 2) do
Print(x)
end.
#include <iostream>
using namespace std;
int main(){
int a, sum;
sum = 0; a = 1;
while (a != 0){
cin >> a;
sum = sum + a;
}
cout << "Сумма = " << sum << endl;
}
-------------------------------------
Пример:
-------------------------------------
-5
5
4
-2
0
Сумма = 2
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(('Я изучаю циклы'+NewLine)*15)
end.
<u>Результат</u>
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы
Я изучаю циклы