М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
maxyatkevich
maxyatkevich
25.03.2022 09:51 •  Информатика

Информационный объем сообщения длиной в 204 символа составляет 51 байт определите, из какго максимального количества символов может состоять алфавит языка, на котоом написано данное сообщение

👇
Открыть все ответы
Ответ:
kleyman200404
kleyman200404
25.03.2022
Var a,b,c,n:integer;
begin
for a:=1 to 7 do
  for b:=a+1 to 8 do
    for c:=b+1 to 9 do
      begin
      n:=a*100+b*10+c;
      write(n:4)
      end;
end.

var
  i,j,n:integer;
  a:array[1..4,1..5]of real;
begin
for i:=1 to 4 do
  begin
  for j:=1 to 5 do
    begin
    a[i,j]:=random*2-1;
    write(a[i,j]:20:15);
    if a[i,j]>=0 then n:=n+1;
    end;
  writeln;
  end;
writeln('Количество неотрицательных: ',n);
end.

var
  i,j,sum:integer;
  a:array[1..3,1..4]of integer;
begin
for i:=1 to 3 do
  for j:=1 to 4 do
    readln(a[i,j]);
writeln('Массив:');
for i:=1 to 3 do
  begin
  for j:=1 to 4 do
    begin
    sum:=sum+a[i,j];
    write(a[i,j]:4);
    end;
  writeln('sum=':8,sum);
  sum:=0;
  end;
end.
4,4(24 оценок)
Ответ:
artemonimus
artemonimus
25.03.2022
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

1)

procedure Add(a,b:integer; var r:integer);
begin
  r:=a+b
end;

begin
  var (x,y):=ReadInteger2('Введите два целых числа:');
  var z:integer;
  Add(x,y,z);
  Writeln('Их сумма равна ',z)
end.

Пример
Введите два целых числа: 18 142
Их сумма равна 160

2)

function Min3(a,b,c:integer):=Min(a,Min(b,c));

begin
  var (i,j,k):=ReadInteger3('Введите три целых числа:');
  Writeln('Минимальное равно ',Min3(i,j,k))
end.

Пример
Введите три целых числа: 35 -4 41
Минимальное равно -4
4,6(12 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ