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

Надо составить программу по паскалю) составить программу проверяющую утверждения, что сумма цифр введенного вами числа делится на 5.

👇
Ответ:
akhdogru
akhdogru
17.07.2020
Var
 n:intger;
begin
 readln(n);
 if n mod 5 = 0 then
  writeln('Число делится на 5 без остатка')
 else
  writeln('Число делится на 5 c остатком')
end.
4,6(68 оценок)
Открыть все ответы
Ответ:
prokop228
prokop228
17.07.2020

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.

4,5(15 оценок)
Ответ:
milanalive65
milanalive65
17.07.2020

Если дан не радиус, вычислим радиус, а из него и всё остальное. Формулы для вычисления радиуса:

R=\dfrac D2=\dfrac{L}{2\pi}=\sqrt{\dfrac S\pi}

Обратные формулы:

D=2R\\L=2\pi R\\S=\pi R^2

Код (Python 3):

from math import sqrt, pi

id = int(input())

if id == 1:

   R = float(input())

elif id == 2:

   R = float(input()) / 2

elif id == 3:

   R = float(input()) / 2 / pi

else:

   R = sqrt(float(input()) / pi)

D = 2 * R

L = 2 * pi * R

S = pi * R**2

if id == 1:

   print(D, L, S)

elif id == 2:

   print(R, L, S)

elif id == 3:

   print(R, D, S)

else:

   print(R, D, L)

Пример ввода:

2

4

Пример вывода:

2.0 12.566370614359172 12.566370614359172

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