1. Var a, b, c:real; d:integer;
Begin
Readln(a, b) ;
S:=a*b;
Write(s) ;
End.
2.
Var a, b, c:real; d:integer;
Begin
D:=0;
Readln(a);
If (a>0) then d:=d+1;
Readln(b) ;
If (b>0) then d:=d+1;
Readln(c>0) then d:=d+1;
Write(d);
End.
Ответ:
Объяснение:
a = list(map(int, input().split()))
pr = 1
for i in a:
if i % 7 == 0:
pr *= i
print(pr)
Файлы могут быть организованы в виде линейной или иерархической файловой структуры