1)
var a,c:real; b:integer;
begin
for b:=2 to 7 do
begin
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
end;
end.
2)
var a,c:real; b:integer;
begin
b:=1;
while b<7 do
begin
b:=b+1;
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
end;
end.
3)
var a,c:real; b:integer;
begin
b:=1;
repeat
b:=b+1;
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
until b=7;
end.
Результат:
b = 2, a = 0.002
b = 3, a = 0.257
b = 4, a = 0.351
b = 5, a = 0.018
b = 6, a = 0.201
b = 7, a = 0.381
Ответ:
program Qwerty;
var a, b, c, d, e, f, g: real;
begin
readln (a, b, c, d, e);
f:=5;
g:=(a+b+c+d+e)/f;
writeln (g);
end.
Объяснение:
Program MyProject;
{$APPTYPE CONSOLE}
var
p:int64;
a:integer;
i:2..10;
begin
a:=1+2;
p:=a;
i:=2;
while i<10 do begin
i:=i+1;
a:=a+i;
p:=p*a;
end;
Write(p)
end.
Program Maz; var a,b:integer; rez:real; p:char;begin write('Введите а = ');readln(a);write('Введите символ: '); readln(p); write('Введите b = '); readln(b); case p of '+': rez:=a+b; '-': rez:=a-b; '*': rez:=a*b; '/': rez:=a/b; end; writeln(a,p,b,'= ',rez); end.