Program task;

var i,a,b,h:longint;
begin
writeln('a?');
readln(a);
writeln('b?');
readln(b);
writeln('h?');
readln(h);
i:=a;
while (i<=b) do begin
writeln(sin(i)*sin(i));
i+=h;
end;
readln;
end.

0 0

4 года назад

Рассчитайте объём (в килобайтах) 8-цветного неупакованного растрового изображения размером 256 х 512 пикселей

postkar

8*256*512 и все это разделить на 1024= 1024Кб,вроде так

0 0

3 года назад

у деда есть коза волк и капуста им нужно переправится через реку...дед может перевозить только одну особу.но на берегу не должни

Alexiaa

сначала волка перевести потом капусту а потом козу

0 0

4 года назад

Прочитать ещё 2 ответа

Паскаль,помогите,пожалуйста:** Даны значения трех вещественных чисел x, y и z. Составить программу, которая вычисляет значение

morgunov

Var x,y,z,t: real;
begin
write('числа x y z через пробел: ');
readln(x,y,z);
t:=2*cos(x-pi/6)/(0.5+sin(y)*sin(y))*(1+z*z/(3-z*z/5));
writeln('t = ',t);
end.

числа x y z через пробел: 1 2 3
t = 11.3859051278616

0 0

1 год назад