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

СОСТАВИТЬ ФОРМУЛУ И ТАБЛИЦУ ИСТИННОСТИ


СОСТАВИТЬ ФОРМУЛУ И ТАБЛИЦУ ИСТИННОСТИ

👇
Ответ:
9092005apv
9092005apv
17.02.2021

Есть вопросы по решению?


СОСТАВИТЬ ФОРМУЛУ И ТАБЛИЦУ ИСТИННОСТИ
4,6(29 оценок)
Открыть все ответы
Ответ:
vitalya0011
vitalya0011
17.02.2021
Вот код:

var ababab,bababa,sususumamama:Integer;
begin
WriteLn('Перед вами программа для нахождения суммы всех натуральных чисел заданного диапазона');
введите наименшее число диапазона ');
ReadLn(ababab);
Write('А теперь введите наибольшее число диапазона ');
ReadLn(bababa);
//оформляем ввод данных
sususumamama:=0;//присваиваем сумме значение 0
while ababab<=bababa do
begin
sususumamama:=sususumamama+ababab;//увеличиваем сумму на число а
ababab:=ababab+1;//увеличиваем число а на 1
end;
Write('Сумма всех чисел диапазона равна '+sususumamama);
//выводим сумму чисел
end.
4,5(48 оценок)
Ответ:
sveta2015w
sveta2015w
17.02.2021

var a:array [1..5] of integer;

i,max,k,j: integer;

begin

Write ('Введите элементы массива: ');

for i:= 1 to 5 do  

read (a[i]);

max:=a[1];

for i:= 1 to 5 do  

if a[i]>max then max:=a[i];

Writeln ('Максимальный элемент: ',max);

Writeln ('Элементы с непарными индексами: ');

for i:= 1 to 5 do  

if i mod 2 <>0 then write (a[i], ' ');

for i:= 1 to 4 do

for j:= i+1 to 5 do  

if a[i]<a[j] then  

 begin

 k:=a[i];

 a[i]:=a[j];

 a[j]:=k;

 end;

 

 writeln();

 writeln ('Массив, упорядоченный в порядке убывания: ');

for i:= 1 to 5 do  

write(a[i], ' ');

end.

Объяснение:

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