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

Переведите с Pascal на С
begin
write('Введите символ: ');
readln(c);
case c of
'0'..'9' :writeln('digit');
'A'..'Z','a'..'z':writeln('lat');
'А'..'Я','а'..'я':writeln('rus');
else writeln('Другой символ');
end;
end.

👇
Открыть все ответы
Ответ:
albekova1
albekova1
27.05.2022
N=int(input('n = '));
m=int(input('m = '));
for i in range(1,n+1):
    s='';
    for j in range(1,m+1):
        if (i%2==1): s=s+str((i-1)*m+j).rjust(4);
        else: s=s+str((i-1)*m+m-j+1).rjust(4);
    print(s);
   
n = 5
m = 5
    1    2   3     4    5
  10    9   8     7    6
  11  12  13  14  15
  20  19  18  17  16
  21  22  23  24  25


n = 5
m = 8
   1     2     3    4    5    6     7   8
  16  15  14  13  12  11  10   9
  17  18  19  20  21  22  23  24
  32  31  30  29  28  27  26  25
  33  34  35  36  37  38  39  40
4,8(74 оценок)
Ответ:
emv63756
emv63756
27.05.2022
//FPC 2.6.4

var
  a: array of longint;
  size, i, j: longint;
begin
  randomize;
  writeln('Колво элементов: ');
  readln(size);

  setLength(a, size);
  write('Исходный случайный массив: ');
  for i:=0 to size-1 do
  begin
    a[i]:=random(201)-100;
    write(a[i], ' ');
  end;
  writeln;

  for i:=0 to size-2 do
    for j:=0 to size-i-2 do
      if a[j]>a[j+1] then
      begin
        a[j]:=a[j] xor a[j+1];
        a[j+1]:=a[j] xor a[j+1];
        a[j]:=a[j] xor a[j+1];
      end;

    writeln('Отсортированный массив: ');
  for i:=0 to size-1 do write(a[i], ' ');
  writeln;

end.
4,8(47 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ