program primer;
var a,b,c,d:integer;
begin
writeln ('введите значение для переменной a');
 readln(a);
writeln ('введите значение для переменной b');
readln(b);
 if a>b then
begin c:=1; d:=2; end
 else begin c:=3; d:=4; end;
writeln('c=',c,' ','d=',d);
readln;
end.

0 0

4 года назад

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

Пользователь вводит последовательность чисел.Признак окончания ввода 0.Вывести длину самой длинной последовательности подряд иду

JohnJohn [21]

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

0 0

4 года назад

Определите информационный объём растрового изображения размером 1024*768 пикселей ,состоящего из 64 цветов. помогите пожалуйста

TheBandik [118]

При использовании 64 цветов для хранения одного пикселя необходимо log(2)64 = 6 бит.
Для всего изображения:
1024*768*6 бит = 1024*768*6 / 8 байт = 1024*768*6 / (8*1024) Кбайт = 576 Кбайт

0 0

4 года назад

Выполните операцию умножения над двоичными числами: а)1011*11;объясните пожалуйста)

калмык 08

1011
 11
 1011
1011
100001

0 0

4 года назад