объяснение есть в коде
у файла.pdf следует поменять расширение на py
data.txt - пример файла с ценами
1.
Var n,S,k:integer
Begin
Read(n);
for i:=1 to n do
Begin
Read(k);
if k mod 3 = 0 then
S:=S+k;
End;
Write(S);
End.
2. var S,k,n:integer;
begin
Read(n);
While n>=0 do
Begin
k:=n mod 10;
if k mod 2=0 then
S:=S+k;
n:=n div 10;
End;
Write (S);
End.
3. var i, a, b, c:integer;
Begin
read(a);
read(b);
read(c);
Fit i:=1 to b do
Begin
If I mod c=0 then write (i);
End;
End.
4. Var i:integer;
Begin
For i:=1 to 100 do
Writeln(i*i);
End.
Смотри рисунок.
Там Блок-Схема
Что надо то?
Таблицу истинности?