var d:real;
i,k:integer;
Begin
k:=0;
for i:= 1 to 3 do begin
writeln("Введит число");
read(d);
if (d<0) then k:=k+1;
end;
writeln(k);
End.
Var
i, j: longint;
b: boolean;
begin
b := true;
for i := 1000 to 9999 do
begin
for j := 2 to i - 1 do
begin
if(i mod j = 0) then
begin
b := false;
break;
end;
end;
if(b = true) then writeln(i);
b := true;
end;
end.
Var
x:real;
Begin
Write('x = ');
ReadLn(x);
Write('f(',x,') = ',4*Cos(2*x)*Sin(2*x)-7.1*x*x*x+sqrt(x))
End.
А - планшет
Б - телефон
В - ноутбук
Буквы - а, т, н, о; слово - нота (рисунок 4)
Полный код на паскале
var
i: integer;
s: real;
begin
s := 0;
for i := 12 to 2001 do
s := s + i;
writeln(s);
s := 1;
for i := 2 to 201 do
s := s * i / (i + 2);
writeln(s);
s := 1;
for i := 1 to 33 do
if i mod 3 = 0 then s := s * 2;
writeln(s);
s := 2;
i := 10;
while i <= 13 do
begin
s := s + 11;
i := i + 1;
end;
writeln(s);
end.
Вывод программы и ответы соответственно
2002935
0.000146320050724284
2048
46