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

Дано трехзначное число. найдите сумму его цифр. входные данные вводится трехзначное число. выходные данные выведите ответ на . примеры входные данные 179 выходные данные 17 в паскаль

👇
Ответ:
АртёмV2
АртёмV2
15.02.2023
Var n: integer;
begin
read(n);
write(n div 100 + n div 10 mod 10 + n mod 10)
end.
4,5(20 оценок)
Открыть все ответы
Ответ:
romaantonizin
romaantonizin
15.02.2023

Відповідь: 1.Циклічними називаються обчислювальні процеси, в яких неодноразово виконуються одні й ті ж дії, але з різними даними.

2.Цикл із передумовою (або цикл-«поки») — це цикл, у якому тіло циклу виконується тільки у разі виконання умови, заданої перед тілом циклу. Якщо умова стає невірною, то робота циклу припиняється і керування передається оператору, наступному за оператором циклу. На мові Паскаль оператор циклу з перед­умовою ще називається «циклом While-Do».

WHILE <умова> DO <оператор>;

Приклад: обчислення суми перших 100 натуральних чисел методом послідовного додавання.

m:=1; S: =0;

WHILE m<=100 DO

begin

S:=S+m;

m:=m+1;

end;

3.Цикл із післяумовою (або цикл-«до») — це цикл, у якому тіло циклу виконується доти, поки умова, задана після тіла циклу, не стане правильною. Якщо умова стає правильною, то робота циклу припиняється й управління передається оператору, наступному за оператором циклу. На мові Паскаль оператор циклу з після­умовою ще називається «цикл Repeat-Until».

REPEAT <оператор> UNTIL <умова>;

Приклад: обчислення суми перших 100 натуральних чисел методом послідовного додавання.

m:= 0; S: = 0;

REPEAT

m:=m +1;

S:=S+m;

UNTIL m >= 100;

4.Загальний вигляд оператора циклу з параметром (з лічильником):

for <параметр циклу>:=N1 to N2 do <тіло циклу >; де N1 та N2 - початкове та кінцеве значення параметра циклу, тіло циклу може бути або складеним оператором. <Параметр циклу > ще називають лічильником циклу. Оператор for забезпечує виконання тіла циклу до тих пір, поки не будуть перебрані всі значення параметра циклу від початкового до кінцевого. Параметр циклу, його початкове та кінцеве значення повинні бути одного і того ж скалярного типу. При цьому можливий будь який стандартний тип, крім real. Якщо N1 та N2 цілі числа, а параметр циклу - цілочисельна змінна, то крок завжди рівний одиниці.

Приклад.  s:=0; for i:=1 to 20 do s:=s+i;

Для i=1, 2, 3,... , 20 буде виконуватись оператор присвоєння

S:=S+i, який накопичує в змінній S суму перших 20 натуральних чисел. Якщо N1 та N2-символьного типу, а їх значення відповідно рівні 'A' та 'Z', то параметр циклу прийматиме послідовні значення, які співпадають з алфавітом: A, B, C, D E .., Z.

5.Якщо умова у вказівці повторення хибна при першій же перевірці, тотіло циклу не виконується жодного разу. Умова вказівки є умовоювходження в цикл.2. Умову вказівки повторення з передумовою необхідно підбирати такимчином, щоб в деякий момент вона змінила своє значення з TRUE на FALSE,інакше виникне ситуація “зациклювання” програми.3. Програмісту необхідно самому потурбуватись про необхідністьзбільшення (зменшення) лічильника циклу на 1. Це можна зробити такимчином І:=І+1.4. Входження в тіло вказівки повторення можливе тільки через заголовокцієї вказівки.

6.Рекурентним співвідношенням називається формула виду an+1=F(an,an-1,...,an-k+1), де F деяка функція від k аргументів, яка дозволяє обчислити наступні члени числової послідовності через значення попередніх членів.

7.- не знаю

8.- не знаю

Пояснення:

4,5(90 оценок)
Ответ:
Говницооо
Говницооо
15.02.2023

var

 menu, D, S: integer;

begin

 Writeln('Введите значение меню');

 Writeln('1 - известна большая диагональ');

 Writeln('2 - известна меньшая диагональ');

 Writeln('3 - Диагонали не известны');

 Readln(Menu);

 case menu of  

   1:  

     begin

       Writeln('Введите площадь и значение большей диагонали');

       Readln(s, d);

       Writeln('Длина меньше диагонали равна: ', (2 * s) / d)

     end;

   2:

     begin

       Writeln('Введите площадь и значение меньшей диагонали');

       Read(s, d);

       Writeln('Длина меньше диагонали равна: ', (2 * s) / d);

     end;

   3:

   Writeln('К сожалению волшебства не будет');

 end;

end.

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