1. program
HelloWorld;
var summ,i
:integer;
begin
i:=2;
while i<=200 do
begin
summ := summ + i;
i:=i+2;
end;
writeln(summ)
end.
2.
program
HelloWorld;
var S,i,n:
integer;
begin
<span> while i<6 do</span>
<span> begin</span>
<span> writeln('</span>Введите значение число:');
<span> readln(S);</span>
<span> if S mod 2 = 0 then n:=n+1;</span>
<span> i:=i+1;</span>
<span> writeln(n);</span>
<span> end;</span>
<span> </span>writeln('Количество
четных:');
writeln(n);
end.
Информатика -это знания о кампьютерах
Язык:
1) Python
2) Pascal ABC
Объяснение:
1)
x = int(input())
y= 2 * (x ** 3) + 3 * (x ** 2) - 4
print(y)
2)
var x, y: integer;
Begin
readln(x);
y := 2 * (x * x * x) + 3 * (x * x) - 4;
writeln(y);
End.
1150 походу
@@@@@@@@@@@@@@
1 - a
2 - a
3 - d
4 - a
5 - г
6 -
7 -
8 - d
9.19 - 2
10 - 6