В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
adeluka5
adeluka5
15.04.2021 14:47 •  Информатика

Вывести на экран первую цифру трехзначного числа ивт.​


Вывести на экран первую цифру трехзначного числа ивт.​

Показать ответ
Ответ:
Zertel
Zertel
13.03.2020 21:01
Var
A,B,m1,m2:integer;
Begin
Write('A = ');Read(A);
Write('B = ');Read(B);
A:=abs(A);
B:=abs(B);
m1:=A mod 10;
A:=A div 10;
if A mod 10 > m1 then m1:=A mod 10;
A:= A div 10;
if A mod 10 > m1 then m1:=A mod 10;

m2:=B mod 10;
B:=B div 10;
if B mod 10 > m2 then m2:=B mod 10;
A:= B div 10;
if B mod 10 > m2 then m2:=B mod 10;

WriteLn('Максимальная цифра в A = ',m1);
WriteLn('Максимальная цифра в B = ',m2);
End.

Var
i:integer;
Begin
Write('Кратные 4: ');
For i:= 1 to 1000 do
   if i mod 4 = 0 then Write(i,' ');
WriteLn;

Write('Кратные 8: ');
For i:= 1 to 1000 do
   if i mod 8 = 0 then Write(i,' ');
WriteLn;

Write('Кратные 2: ');
For i:= 1 to 1000 do
   if i mod 2 = 0 then Write(i,' ');
WriteLn;

Write('Кратные 4,8,2: ');
For i:= 1 to 1000 do
   if i mod 8 = 0 then Write(i,' ');
WriteLn;

End.
0,0(0 оценок)
Ответ:
Танюшксав
Танюшксав
24.02.2020 12:46
PascalABC.NET 3.2, сборка 1387 от 20.02.2017
Внимание! Если программа не работает, обновите версию!

//const
//  MAX_ROW=5;
//  MAX_COL=8;
begin
  var a:=MatrRandom(MAX_ROW,MAX_COL,10,99); a.Println(3);
  (var imax, var jmax, var imin, var jmin):=(0,0,0,0);
  for var i:=0 to MAX_ROW-1 do
    for var j:=0 to MAX_COL-1 do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j)
      else
        if a[i,j]<a[imin,jmin] then (imin,jmin):=(i,j);
  for var i:=0 to MAX_ROW-1 do Swap(a[i,jmax],a[i,jmin]);
  Writeln('-'*3*MAX_COL); a.Println(3)
end.

Для проверки работы программы снимите комментарии с первых трех строк.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота