1. Задача: Найти сумму 20 чётных чисел.
а) Выполните постановку задачи в стандартной форме.[1]
б) Начерти блок-схему. [3]
в) Напиши псевдокод к задаче. [3]
2. По данному псевдокоду составьте условие задачи [1], напишите программу на языке Pascal[3].
алг сумма
вещ а,s
нач
s:=0 ;
а:=1 ;
нц
пока а<=10
s:=s+а;
а:=а+1;
кц
вывод s
кон
3. К задаче № 2 составьте трассировочную таблицу. [2]
СОР
f: Text;
k: integer;
s, p: longint;
i: integer;
begin
Assign(f, 'output.dat');
Rewrite(f);
writeln('Вводите данные, окончание число 7777');
repeat
read(k);
if k<>7777 then writeln(f,k)
until k=7777;
Close(f);
Reset(f);
s := 0;
p := 1;
writeln;
while not Eof(f) do
begin
readln(f, k);
write(k:4);
s := s + k;
if k <> 0 then p := p * k
end;
Close(f);
writeln;
writeln('Сумма= ', s, ', произведение= ', p)
end.
Вводите данные, окончание число 7777
3
6
-4
6
2
-3
-4
2
6
0
5
-1
7777
3 6 -4 6 2 -3 -4 2 6 0 5 -1
Сумма= 18, произведение= 622080