tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить алгоритм вычисления
Составить алгоритм вычисления произведения 6 чисел введённых с клавиатуры !
Savelijbih
3 22.06.2019 03:00
0
Ответы
volden05
17.07.2020 12:47
Program mnogohodovochka;
var
a,b,c,d,e,f:integer;
begin
writeln('vvedite 6 chisel');
readln(a,b,c,d,e,f);
writeln('proizvedenie= ', a*b*c*d*e*f);
end.
ПОКАЗАТЬ ОТВЕТЫ
Uoywex
17.07.2020 12:47
Var a,s,i:integer;
begin
s:=1;
for i:=1 to 6 do
begin
readln(a);
s:=s*a;
end;
write(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
tete12
14.06.2019 18:00
Раскрась цветными карандашами основные группы клавиш: 1)символьные(алфавитно-цифровые) клавиши - синим 2)специальные клавиши- красным. 3)клавиши дополнительные клавиатуры-жёлтым....
0987mnbv
14.06.2019 18:00
Построение любой модели начинается … выберите один из 3 вариантов ответа: 1) с выбора вида будущей модели. 2) с выделения свойств и признаков объекта – оригинала...
StarKiller11
07.06.2019 17:30
Паскаль заполнить массив случайными числами и найти элемент наиболее близкий по значению к максимальному элементу....
MD200405
07.06.2019 17:30
Отметь неопределенное высказывание: а) погода хорошая б) все двери сделаны из дерева в) 40+10=50...
Mariam21072003
07.06.2019 17:30
Какие каналы связи используются для передачи данных в компьютерных сетях?...
Дошик132
07.06.2019 17:30
Создать массив а из десяти целых чисел, принадлежащих промежутку (0; 50) выведите полученный результат на экран. подсчитать сумму элементов (работа в паскаль). я...
ZlataPaw
07.06.2019 17:30
Написать программу выводящую на печать дробную и целую части числа вводимого с клавиатуры....
alenashafeeva
26.05.2020 17:37
Построить таблицу значений и оформить график функции при изменении аргумента на интервале при х Î [-5; 5]с шагом h=0,5 . СКАЖИТЕ ФОРМУЛУ КАК НАЙТИ Функция имеет...
НаташаБатракова
26.05.2020 19:18
Определите маску сети минимального размера, в которую входит N компьютеров для значений N=16, 25, 32, 112 Как решать?...
Transylvania1
26.05.2020 19:18
Дано файл f,що складається з дійсних елементів.Створити файл g,що мыстить елементи файлу f без повторних входжень. С++...
Популярные вопросы
С точностью до грамма определи, какую массу сухих дров потребуется...
1
Почему Марат был мучеником для Давида и преступником для Бодри?...
1
Ход белой королевы.Характеристика главных героев...
2
4.Решите задачу, записав условие формулу, решение и ответ Одна...
3
ІІ Количественные числительные. ҚайталауОпредели, каким членом...
3
Тест по русскому языку за 1семестр 6 класс Ф.И. УЧ-СЯ 1. Продолжите...
2
С л о в а р н а я р а б о т а : яркость и красочность языка Астафьева....
1
Сторона АВ треугольника АВС равна 12 см. Сторона ВС разделена...
3
Определи, на сколько больше теплоты выделится при полном сгорании керосина массой 9,7 кг,...
1
4. Запишите в виде несократимой дроби: 400/950 и 15+18/18•15...
2
var
a,b,c,d,e,f:integer;
begin
writeln('vvedite 6 chisel');
readln(a,b,c,d,e,f);
writeln('proizvedenie= ', a*b*c*d*e*f);
end.
begin
s:=1;
for i:=1 to 6 do
begin
readln(a);
s:=s*a;
end;
write(s);
end.