Program chik;
var s,i,n:integer;
begin
readln(n);
for i:=1 to n do
if(i mod 2=0)then s:=s+i;
writeln(s);
end.
<span>
</span>
Ответ на Ваш вопрос - это "источник".
//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)
var
n, m : integer;
begin
writeln('Определение максимального числа последовательности');
writeln('положительных чисел');
writeln;
writeln('Вводите после стрелки числа. Для завершения ввода введите ноль.');
writeln;
m := 0;
repeat
n := ReadlnInteger('-> ');
if n > m then m := n;
until n = 0;
writeln;
writeln('Максимальное число: ', m)
end.
Задание 1
#include <iostream>
using namespace std;
int main() {
int a, b;
cin >> a >> b;
cout << a - b;
}
Задание 2
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a;
cin >> a;
cout << pow(a, 2) << ' ' << pow(a, 3)<< ' ' << pow(a, 5);
}
Задание 3
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a;
cin >> a;
cout << "The next number for the number " << a << " is " << a + 1 <<"!\n" <<"The previous number for the number "<< a << " is " << a - 1 <<"!";
}
Задание 4
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a;
cin >> a;
cout << (3 * pow(a, 3) + 18 * pow(a, 2)) * a + 12 * pow(a, 2) - 5;
}
Задание 5
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a, b, c;
cin >> a >> b >> c;
cout << a % 7 << "\n" << b % 7 << "\n" << c % 7;
}
Задание 6
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int a, b, c, a1, b1, c1;
cin >> a >> a1 >> b >> b1 >> c >> c1;
cout << a1 % (8 - a) << "\n" << b1 % (8 - b) << "\n" << c1 % (8 - c);
}