Знайти суму елементів послідовності, які більші заданого числа d.
Розв’язок: Тут краще використати цикл з параметром For. Ми знаємо скільки разів він буде виконуватись.
Текст програми:
Program pr1;
Var s, d, a:real;
I, N:integer;
Begin
Writeln (‘введіть кількість елементів’); (виведення на екран підказки)
Readln(n); (введення кількості елементів)
Writeln (‘введіть число d’);
Readln(d); (введення значення числа d)
S:=0; (занулення суми)
For i:=1 to n do begin (початок циклу)
Writeln(‘Введіть елемент послідовності’); (виведення на екран підказки)
Readln(a); (введення значення а)
If a > d then s:=s+a; (знаходження суми елементів більших за d)
End;
Writeln(‘s=’,s:8:2); (виведення відповіді)
Readln; (при зупинка виведення)
End.
Задача 4.
Знайти добуток непарних від’ємних членів послідовності.
Текст програми:
Program pr2;
Var d, a:real;
I, N:integer;
Begin
Writeln (‘введіть кількість елементів’);
Readln(n);
d:=1; (початкове значення добутку)
For i:=1 to n do begin
Writeln(‘Введіть елемент послідовності’);
Readln(a);
If a mod 2 < > 0 then d:=d*a; (знаходження добутку непарних елементів )
End;
Writeln(‘d=’,d:8:2);
Readln;
End.
Задача 5.
Знайти суму всіх тризначних чисел, кратних 123.
Текст програми:
Program r123;
Var I, S:integer;
Begin
S:=0;
For I:=123 to 999 do
If I mod 123=0 then S:=S+I;
Writeln(‘S=’,S);
Readln;
End.
