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

Найти сумму нечетных цифр в заданном с клавиатуры числе.

👇
Ответ:
Daniilkv
Daniilkv
19.05.2021
Var 
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln('Вводите числа, как только введете все числа нажмите любую букву');
while i=1 do begin
readln(str);
val(str,a,c);
if ( a mod 2 <>0) then count := count +a;
if(c<>0) then i:=0;
end;
writeln('Сумма нечетных чисел  = ', count);
end.
4,5(90 оценок)
Открыть все ответы
Ответ:
ArtRavi
ArtRavi
19.05.2021

Основний алгоритм для визначення найменшого і найбільшого числа з набору дійсних чисел включає наступні кроки:

Ініціалізувати змінну мінімум значенням першого числа у наборі.

Ініціалізувати змінну максимум значенням першого числа у наборі.

Просканувати залишок чисел у наборі.

Для кожного числа:

Порівняти його зі значенням мінімум. Якщо воно менше, оновити значення мінімум на поточне число.

Порівняти його зі значенням максимум. Якщо воно більше, оновити значення максимум на поточне число.

Вивести значення мінімум і максимум.

Ось приклад реалізації даного алгоритму у мові програмування Lazarus (з використанням Pascal):program FindMinMax;

var

numbers: array[1..6] of Real; // Набір чисел

minimum, maximum: Real; // Змінні для збереження найменшого і найбільшого числа

i: Integer;

begin

// Ініціалізація набору чисел (приклад)

numbers[1] := 3.14;

numbers[2] := 2.718;

numbers[3] := 1.618;

numbers[4] := 0.577;

numbers[5] := 2.236;

numbers[6] := 1.414;

// Ініціалізація мінімуму і максимуму першим числом у наборі

minimum := numbers[1];

maximum := numbers[1];

// Пошук найменшого і найбільшого чисел у наборі

for i := 2 to 6 do

begin

if numbers[i] < minimum then

minimum := numbers[i];

if numbers[i] > maximum then

maximum := numbers[i];

end;

// Виведення результатів

WriteLn('Найменше число: ', minimum);

WriteLn('Найбільше число: ', maximum);

end.

Запустивши цей код у середовищі Lazarus, ви отримаєте виведені на екран найменше і найбільше число з набору. Ви можете змінити значення `numbers

Объяснение:

4,8(89 оценок)
Ответ:
Nikol3001
Nikol3001
19.05.2021

Основний алгоритм для визначення найменшого і найбільшого числа з набору дійсних чисел включає наступні кроки:

Ініціалізувати змінну мінімум значенням першого числа у наборі.

Ініціалізувати змінну максимум значенням першого числа у наборі.

Просканувати залишок чисел у наборі.

Для кожного числа:

Порівняти його зі значенням мінімум. Якщо воно менше, оновити значення мінімум на поточне число.

Порівняти його зі значенням максимум. Якщо воно більше, оновити значення максимум на поточне число.

Вивести значення мінімум і максимум.

Ось приклад реалізації даного алгоритму у мові програмування Lazarus (з використанням Pascal):program FindMinMax;

var

numbers: array[1..6] of Real; // Набір чисел

minimum, maximum: Real; // Змінні для збереження найменшого і найбільшого числа

i: Integer;

begin

// Ініціалізація набору чисел (приклад)

numbers[1] := 3.14;

numbers[2] := 2.718;

numbers[3] := 1.618;

numbers[4] := 0.577;

numbers[5] := 2.236;

numbers[6] := 1.414;

// Ініціалізація мінімуму і максимуму першим числом у наборі

minimum := numbers[1];

maximum := numbers[1];

// Пошук найменшого і найбільшого чисел у наборі

for i := 2 to 6 do

begin

if numbers[i] < minimum then

minimum := numbers[i];

if numbers[i] > maximum then

maximum := numbers[i];

end;

// Виведення результатів

WriteLn('Найменше число: ', minimum);

WriteLn('Найбільше число: ', maximum);

end.

Запустивши цей код у середовищі Lazarus, ви отримаєте виведені на екран найменше і найбільше число з набору. Ви можете змінити значення `numbers

Объяснение:

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