var i,a,z:integer;
begin
for i:=1 to 5 do
begin
read(z);
if not( z mod 2 = 0) then a:=a+z;
end;
write('sum=',a);
end.
Ответ:
86 дисков
Объяснение:
50 Гбайт=51200 Мбайт
51200 Мбайт : 600 Мбайт = 85,3 дисков , итого 86 чтобы записать остаток
Я только мыслю, ничего не печатаю, ничего не говорю, а машина меня понимает, словно мой мозг - часть машины
Function f(x: real): real;
begin
f := x * sqr(x) - sin(x)
end;
var
a, b, h, x: real;
begin
Write('Введите через пробел a,b,h: ');
Readln(a, b, h);
x := a;
while x <= b do
begin
Writeln('x=', x:0:3, ', f(x)=', f(x):0:5);
x := x + h
end
end.
Вот я выполнил работу в Excele.
Прилагаю скриншот и книгу Excel