Var
a,b,i:integer;
Begin
Write('Введите А и В ');
Read(a,b);
for i:= a to b do
writeln(a+(i-a),'^2 = ',sqr(i));
End.
3) 45
4)
Program z4; Var b,a,i,m:integer; Begin read(b);for i:=1 to b do beginread(a);if a>0 and (a mod 2 = 0 )then m:=m+a; end;writeln(m);End.
<span>Малая цифровая вычислительная машина.
ЭВМ</span>
вот так расшифровывается эта хрень
1)либо х в степени (х/4) или х √(х/4)
2)либо 1/ (а в степени (в/а)) или 1/ (а√в/а))
3) либо а в степени (1/с/в/в) или а √(1/с/в/в)
в таких номерах обычно 2 решения (так нам объясняли)