Var
A,k,n:integer;
S:real;
Begin
S:=0;
k:=0;
Write('n = ');ReadLn(n);
For n:= 1 to n do
Begin
Read(A);
if (A mod 5 = 0)and(A mod 2 <> 0) then
Begin
S:=S+A;
k:=k+1
End;
End;
WriteLn('k = ',k);
WriteLn('S = ',S);
End.
Пример работы программы:
n = 7
5
15
95
97
90
98
0
k = 3
S = 115
Правильный ответ:
4)F6- перейти на другое окто
ctrl+V- вставка
ctrl+С- копировать(должна была нажать на эту кнопку)
ctrl+F5-Документ оконного восстановления
Program ob;
procedure GetVolume();
var
r: real;
begin
write('r = ');
readln(r);
writeln('Объём: ', V(r));
end;
function V(r: real): real;
begin
V := 4 * 3.14 * (r * r * r) / 3;
end;
begin
GetVolume();
end.