Сохранить- то что надо сберечь в данный момент
Сохранить как - это имя придумать или сохранить на рабочий стол или в любую другую ПАПКУ
Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.
1) i=2, 2<9, A=2*i=4, i=i+2=4
2) i=4, 4<9, A=2*i=8, i=i+2=6
3) i=6, 6<9, A=2*i=12, i=i+2=8
4) i=8, 8<9, A=2*i=16, i=i+2=10
5) i=10, 10<9 (не выполн.)
ответ: А=16
var i:real;
begin
i:=0;
while i<=2 do
begin
writeln(i:4,'*',i,'=',i*i);
i:=i+0.2;
end;
end.
1) Сколько всего ГБ зашифрует вирусы под отдельности?
A : 1 Гбайт
B : 1\2 Гбайт
С : 1\3 Гбайт
Д : 1\6 Гбайт
2) Найдём сумму
1 + 1\2 + 1\3 + 1\6 = (6 + 3 + 2 + 1)\6 = 2 Гбайт