Вопрос по информатике:
1.Даны два целых числа A и B (A < B ). Найти сумму всех чисел от A до B включительно.
2. Даны два целых числа A и B (A < B, A > 0). Найти произведение всех чисел от A до B включительно.
3. Дан массив целых чисел Х. Найти сумму квадратов всех чисел.
4. Дан массив целых чисел Х. Найти количество отрицательных элементов массива.
5. Дан массив целых чисел Х. Найти максимальный элемент массива.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.08.2018 07:50
- Информатика
- remove_red_eye 19697
- thumb_up 15
Ответы и объяснения 1
Program suma;
Var a, b, sum, i:integer;
begin
read(a);
read(b);
for i:=a to b do sum:=sum+i;
write(sum);
end.
2.
Program multip;
Var a, b, m, i:integer;
begin
m:=1;
read(a);
read(b);
for i:=a to b do m:=m*i;
write(m);
end.
3.
Program suma2;
Var a:array [1..5] of integer;
i, sum:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do
sum:=sum + a[i] * a[i];
write(sum);
end.
4.
Program cnt_nopos;
Var a:array [1..5] of integer;
i, cnt:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do
if a[i] < 0 then Inc(cnt);
write(cnt);
end.
5.
Var a:array [1..5] of integer;
i, max:integer;
begin
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];
write(max);
end.
- 15.08.2018 18:14
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.