Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
программа на паскале:
program xxx;
var a, b: real;
begin
writeln('введите количество миль');
readln(a);
b: = a*1.6;
writeln('кол-во киллометров - ',b)
end.
var
mas : array[1..15] of integer;
i: integer;
for i: =1 to 15 do
mas[i] : = random(40)-20;
if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;
if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;
end;
program w7w7;
var a: real;
readln (a);
if a< 0 then writeln ('otritsatelnoe chislo');
if a> 0 then writeln ('pologitelnoe chislo');
16 цветов=4 бита/пиксель
640*250=160000 пикселей — размер изображения
160000*4=640000 бит = 80000 байт.
Популярные вопросы