• 
  • 11 January 2021
  Информатика
  • Автор: kknopcka

  

  ПОМОГИТЕ РЕШИТЬ 5 ЛЮБЫХ ЗАДАЧ
  паскаль
  5. Дано трехзначное число. Кратна ли сумма его цифр семи?
  8. Дано три натуральных числа x, y, z. Вычислить количество чисел меньших 50.
  10. Даны два вещественных числа. Уменьшить второе число в пять раз, если оно больше первого
  по абсолютной величине
  13. Составить программу, которая по введѐному названию страны Европы будет выводить на
  экран название столицы (например, вводим Греция - получаем "Столица Греции Афины");
  17. Заданы два числа.
  c) Является ли только одно из этих чисел большим 10?
  21. Дано двузначное число. Является ли сумма его цифр двузначным числом кратным трѐм.
  22. Проверить, является ли число трехзначным, у которого цифры образуют геометрическую
  прогрессию (например: 139, 842).
  28. Даны действительные положительные числа x, y, z.
  b) Если треугольник существует, то ответить – является ли он остроугольным
  30 Дано натуральное число n (n <= 9999).
  c) Верно ли, что все четыре цифры числа различны?

• 
  • 11 January 2021
  • Ответ оставил: danulpopov

  //5
  var
  sum, n:integer;
  begin
  Readln(n);
  while (n > 0)do
    begin
      sum := sum + n mod 10;
      n:= n div 10;
    end;
   if (sum mod 7 = 0) then
    writeln('Сумма чисел кратна 7') else
      Writeln('Сумма чисел не кратна 7')
  end.
  
  //8
  var
  a, cnt:integer;
  begin
  Read(a);
  if (a < 50)then cnt:= cnt + 1;
  Read(a);
  if (a < 50)then cnt:= cnt + 1;
  Read(a);
  if (a < 50)then cnt:= cnt + 1;
  Writeln(cnt);
  end.
  
  //10
  var
  a, b:Real;
  begin
  Readln(a,b);
  if (a < abs(b)) then
    b:= b / 5;
  Writeln(a, ' ', b);
  end.
  
  

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (05.09.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы