Var ar:array[1..10] of integer;
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.

0 0

4 года назад

Для записи текста использовался 256-символьный алфавит. Каждая страница содержит 30 строк по 70 символов в строке. С какой скоро

Tomas86 [27]

256=2^8 ---> 8 бит для кодирования одного символа
F =8*30*70*5=84 000 бит весь текст;
t=1 мин =60 секунд
V =F/t =84 000/60= 1400 бит/c =175 байт/c

0 0

4 года назад

Закодировать в виде ребуса - компьютер

Сарачка

Кот'М папа'''(нарисуешь) тень''(нарисуешь)рак''

Можно так а можешь просто словами

0 0

4 года назад

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

Карина 9988 [7]

Картинка должна быть в папке с программой и быть в формате BMP

uses
graphabc;

var
n: string;
b: Picture;
s:integer;

begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.

0 0

4 года назад