Код программы:
procedure print(a, b:integer);
var i:integer;
begin
for i:=1 to 7 do
write('*');
writeln();
for i:=1 to 19 do
for i:=1 to a do
for i:=1 to b do
end;
var a,b:integer;
writeln('Введите количество символов на 3 уровне(<80): ');
readln(a);
writeln('Введите количество символов на 4 уровне(<80): ');
readln(b);
if (a < 80) and (b < 80) then
print(a,b)
else
writeln('Ошибка! Количество символов >= 80');
end.
Поделитесь своими знаниями, ответьте на вопрос:
Для хранения 256-цветного изображения на кодирование пяти пикселей выделяется: А. 40 бит Б. 5 байт В. 256 байт Г. 5 бит (2 варианта)
Код программы:
procedure print(a, b:integer);
var i:integer;
begin
for i:=1 to 7 do
write('*');
writeln();
for i:=1 to 19 do
write('*');
writeln();
for i:=1 to a do
write('*');
writeln();
for i:=1 to b do
write('*');
end;
var a,b:integer;
begin
writeln('Введите количество символов на 3 уровне(<80): ');
readln(a);
writeln('Введите количество символов на 4 уровне(<80): ');
readln(b);
if (a < 80) and (b < 80) then
print(a,b)
else
writeln('Ошибка! Количество символов >= 80');
end.