Выведет 5, т.к pop удаляет последний элемент массива и выводит его
Var
i, kor, koz, ov: integer;
begin
for i := 1 to 40 do
begin
koz := i;
kor := 2 * koz;
ov := 40 - (koz + kor);
if ov < 0 then break;
writeln('Овец: ', ov, ' Коров: ', kor, ' Коз: ', koz);
end
end.
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
int a,k(0);
cout << "a="; cin >> a;
while (a > 0)
{
a /= 10;
k++;
}
cout << "Otvet: " << k << endl;
return 0;
}
Var
a: array[1..15] of real;
i: integer;
b, c:real;
Begin
for i:=1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if (((i mod 3)=0) and ((a[i] mod 5)=0) then
Begin
b:=b+a[i];
c:=c+1;
End;
write(b/c);
End.
Такая информация называется Достоверной