tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Впаскале. дано натуральное число
Впаскале. дано натуральное число n. вычислить отношение суммы цифр к корню квадратному из суммы цифр заданного числа.
Boba35
1 01.09.2019 23:40
0
Ответы
Fosa1
06.10.2020 10:42
Var
n,S:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
While n > 0 do
Begin
S:=S+n mod 10;
n:=n div 10
End;
WriteLn(S/Sqrt(S));
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
F3ren9d
15.05.2020 10:53
Какое минимальное количество компьютеров необходимо для создания компьютерной сети...
ribka0703
13.11.2020 11:10
Алфавит некоторого языка состоит из 32 символов. Каков информационный вес символа этого алфавита? 4 бита 32 бита 1 бит 5 битов...
iarik2008
24.05.2019 16:40
Мне нужно сочинение на тему : нужно ли защищать компьютер от вирусов по !...
Nika75556
17.05.2021 07:41
запишите название кнопок и их назначение ...
kornilov1001
17.05.2021 07:41
Жесткий диск бывает 1)магнитный и немагнитный2)наружный и встроенный3)внутренний и внешний...
валерія346
11.11.2020 18:47
Какое основное назначение отладчика программы...
mrmrheik
11.11.2020 18:47
с паскальем. На примере задания 1 нужно сделать программы для задания 2 и 3!...
anastasiyaryum1
11.11.2020 18:48
Напишите наименьшее целое число x, для которого истинно высказывание: НЕ (x нечётное) И НЕ (x 24)...
daniil069531671
12.01.2022 03:02
Найдите площадь фигуры, изображенной на рисунке....
Vladrus2006XD
12.01.2022 03:01
Определить количество сахара С12Н22О11, растворенного в 270 г воды, если давление пара раствора при 70 °С 30470 Па. Давление пара воды при данной температуре — 31157 Па....
Популярные вопросы
20 . мне нужен фанфик (продолжение) шпага славка беркути. только такой чтобы...
3
Решить 4^х-2^х-3+15=0 найти наименьшее значение на отрезке [2,√10]...
3
50 ! написать сочинение.тема сочинения: юмористические произведения 20 -...
1
Чим відрізняється і що спільного між різними природного добору?...
1
20 ! массасы 5 т жер серігін 100км биіктікке 8км/с болатын бірінші ғарыштық...
2
Медный брусок в форме прямоугольного параллелепипеда нагревают на 60 градусов...
1
Запишите в виде квадрата двучлена 0.04a^2-0.4a+1...
2
Для нейтрализации уксусной кислоты потратили 10мл раствора калия гидроксида...
3
На похилій площині під кутом 30 перебуває вантаж масою 50кг. яку силу треба...
2
Явления связанные с электричеством...
1
n,S:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
While n > 0 do
Begin
S:=S+n mod 10;
n:=n div 10
End;
WriteLn(S/Sqrt(S));
End.