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

Склавиатуры вводятся 2 числа. если хотя бы одно из этих чисел является трёхзначным и кратным 3, вывести слово yes, иначе возвести первое число в квадрат, а из второго извлеч корень, вывести эти числа на экран

👇
Ответ:
malcolmyang
malcolmyang
12.06.2021
Var
  a,b:integer;
begin
  Write('Введите два числа -> '); Readln(a,b);
  if ((a>=100) and (a<=999) and ((a mod 3)=0) or
      (b>=100) and (b<=999) and ((b mod 3)=0)) then Writeln('YES')
  else Writeln(sqr(a),', ',sqrt(b))
end.

Тестовые решения:
Введите два числа -> 65 360
YES

Введите два числа -> 152 47
23104, 6.85565460040104
4,5(72 оценок)
Открыть все ответы
Ответ:
Still227
Still227
12.06.2021

first = int(input())

second = int(input())

third = int(input())

if first >= second and first >= third:

   print("Максимум равен", first)

elif second > first and second > third:

   print("Максимум равен", second)

else:

   print("Максимум равен", third)

Объяснение:

first = int(input()) # Вводим первое число с клавиатуры

second = int(input()) # Вводим второе число с клавиатуры

third = int(input()) # Вводим третье число с клавиатуры

if first >= second and first >= third: # Если значение переменной first ≥ значения переменной second И ≥ значения переменной third

Тут мы взяли тот вариант, что все переменные могут быть равны

   print("Максимум равен", first) # Максимум равен значению переменной first

elif second > first and second > third: # Если значение переменной second ≥ значения переменной first И ≥ значения переменной third

   print("Максимум равен", second) # Максимум равен значению переменной second

else: # Иначе

   print("Максимум равен", third) # Максимум равен значению переменной third

4,4(34 оценок)
Ответ:
tanya732
tanya732
12.06.2021

begin

 var a := readinteger;

 var b := readreal;

 while (b >= a) do

 begin

   print(b * b, ' ');

   b := b - 0.5;

 end;

end.

Объяснение:

begin  // Начало программы

 var a := readinteger;  // Считываем целочисленную переменную a с клавиатуры

 var b := readreal;  // Считываем вещественную переменную b с клавиатуры

 while (b >= a) do  // Пока значение переменной b ≥ значению переменной а

 begin  // Начало цикла

   print(b * b, ' ');  // Выводим квадрат числа с пробелом

   b := b - 0.5;  // Уменьшаем переменную b на 0.5

 end;  // Конец цикла

end. // Конец программы

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