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

Https://1drv.ms/p/s!AtuMHKY8XgZ9inRAcb_ky67EOwmO?e=mVLMNH
вступите в повер поинт

Показать ответ
Ответ:
kloodinvulf3451
kloodinvulf3451
27.08.2022 19:33
Полное решение:

var
  a,b,c:integer;
begin
  writeln('Введите три числа: ');
  readln(a,b,c);
  if (a>b)and(a>c) then writeln('Первое число наибольшее')
                   else if (a<b)and(a<c) then writeln('Первое число наименьшее')
                                         else writeln('Первое число со средним значением');
  if (b>a)and(b>c) then writeln('Второе число наибольшее')
                   else if (b<a)and(b<c) then writeln('Второе число наименьшее')
                                         else writeln('Второе число со средним значением');
  if (c>a)and(c>b) then writeln('Третье число наибольшее')
                   else if (c<a)and(c<b) then writeln('Третье число наименьшее')
                                         else writeln('Третье число со средним значением');
end.

Проверил на Паскале
0,0(0 оценок)
Ответ:
JinkoGloom
JinkoGloom
29.02.2020 10:19
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
uses GraphABC;
begin
  var s:=ReadlnString('Укажите время MM:CC');
  var m:=s.Left(2).ToInteger;
  var c:=s.Right(2).ToInteger;
  var i:=m;
  var j:=c;
  Font.Size:=60;
  Font.Color:=clBlue;
  repeat
    while i<60 do begin
      while j<60 do begin
        if i<10 then s:='0'+i+':' else s:=i+':';
        if j<10 then s+='0'+j else s+=j;
        FillRect(50,100,350,400);
        DrawTextCentered(50,100,350,400,s);
        Inc(j);
        Sleep(1000)
        end;
      j:=0;
      Writeln;
      Inc(i)
      end;
    i:=0
  until False
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота