Регистрация
sosochek47
17.05.2023 03:39
Информатика
Есть ответ 👍

Используя оператор while и for решите задачи(2-мя ) 1) Найти сумму ряда чисел от 1 до 100. Полученный результат вывести на экран
2) Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вводятся с клавиатуры; a≤ 200)
3)Мой богатый дядюшка подарил мне один доллар в мой первый день рождения. В каждый день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет мне исполнилось. Написать программу, указывающую, к какому дню рождения подарок превысит 100$.

на языке питон

217
285
Посмотреть ответы 1

Ответы на вопрос:

шуберт678
шуберт678
4,4(31 оценок)

const n=5;

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

i,s: integer;

begin

for i: = 1 to n do

begin

a[i]: =random(5)+2;

write(a[i],' ');

end;

writeln;

for i: = 1 to n do if a[i]=3 then writeln (i,' элемент равен ',a[i]);

for i: = 1 to n do if a[i]> 3 then writeln (i,' элемент больше 3 и равен ',a[i]);

for i: = 1 to n do if (a[i]> =3) and (a[i]< =5) then s: =s+a[i];

writeln ('сумма чисел в массиве удовлетворяющих условию 3< =x< =5 равна ',s)

end.

Популярно: Информатика