<span>program mas;
uses crt;
var a, b, c, k:integer;
begin
writeln('Введите три числа');
readln(a);
</span>readln(b);<span>
</span>readln(c);<span> </span><span>
for i:=1 to 3 do begin
if i>0 then k:=k+1;
end;
writeln('Положительных чисел',k);
readln;
end.
Вроде так.
Точно не знаю, давно на этом языке не кодил</span>
Что это значит это вообще вопрос
В четырехцветном изображении для хранения одной точки требуется log(2)4 = 2 бита; в изображении с 16-цветной палитрой - log(2)16 = 4 бита. В том же объеме памяти в этом случае можно сохранить изображение, содержащее в 2 раза меньше точек, т.е. 300*200 / 2 = 30000. Если не изменять пропорции, то размер изображения ≈ 212*141
Решение
Человек лучше понимает и запоминает ту
информацию, которая представлена наглядно - с помощью рисунков,
фотографий, схем, диаграмм. Эту информацию легче анализировать.
Uses crt;var R:real;beginwriteln('Введите радиус круга в основании: ');readln(R);writeln('Площадь основания цилиндра= ',2*pi*sqr(R));end.