Program n1;
var sum,a,c: integer;
begin
readln(a);
sum:=0;
while true do
begin
readln(c);
if c=0 then break;
if c mod a=0 then sum:=sum+c;
end;
writeln(sum);
end.
2^5=32 - i=5 бит
30 байт*8=240 бит
240 бит/5=48 символов
1. 1)2
2)0
3)0
4)12
5) 0
6)3
2. 21; 15; 45
#include <iostream>
#include <algorithm>
int main()
{
int arr[3];
for(int i = 0; i < 3; i++)
std::cin >> arr[i];
int max = arr[0];
for(auto& i : arr)
{
if(i > max && (i % 2 == 0))
max = i;
}
std::cout << "Результат = " << max << std::endl;
}
Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>