Справочная система запускается с помощью кнопки F1.
Ответ:
Объяснение:
#include <iostream>
using namespace std;
void cycle_for() {
int sum = 0;
for (int i = 0; i <= 80; i++) if (i % 4 == 0) sum += i;
cout << "Cycle for: " << sum << endl;
}
void cycle_while() {
int i = 0, sum = 0;
while (i <= 80) {
if (i % 4 == 0) sum += i;
i++;
}
cout << "Cycle while: " << sum << endl;
}
void cycle_do_while() {
int i = 0, sum = 0;
do {
if (i % 4 == 0) sum += i;
i++;
} while (i <= 81);
cout << "Cycle do while: " << sum;
}
int main() {
cycle_for();
cycle_while();
cycle_do_while();
}
<em>/ PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Поквартирная численность жильцов');
var a:=ArrRandom(36,1,10); a.Println;
var mx:=a.Max;
Write('Квартиры с максимальным количеством жильцов: ');
a.Select((x,i)->(x,i)).Where(x->x[0]=mx).Select(x->x[1]+1).Println
end.
<u>Пример</u>
Поквартирная численность жильцов
7 9 6 7 8 9 1 4 7 8 8 8 1 7 7 8 3 10 7 7 2 9 7 3 2 8 2 2 10 4 4 5 2 1 7 1
Квартиры с максимальным количеством жильцов: 18 29