(паскаль авс): среди натуральных трехзначных чисел найти те, сумма цифр которых равна заданному числу а, а само число при делении на 4 дает остаток 3.

Var a,b,i,s1,s2,s3:integer;
begin;
readln(a);
for i:=100 to 999 do
begin;
b:=i;
s1:=b mod 10;
b:=b div 10;
s2:=b mod 10;
b:=b div 10;
s3:=b mod 10;
b:=b div 10;
if (i mod 4=3) and (s1+s2+s3=a) then writeln(i);
end;
end.

1) #include <iostream>

using namespace std;

int main()

{

double a, b, c;

cin>>a;

cout<<endl;

cin>>b;

cout<<endl;

cin>>c;

cout << "Среднее: " << (a+b+c)/3 << endl;

cout << "Разность: " << 2 * (a + c) - 3 * b << endl;

}

2) #include <iostream>

using namespace std;

int main()

{

int arr[4], max = 0;

for (int i = 0; i < 4; i++)

{

cin >> arr[i];

if(max < arr[i] && arr[i] % 2 == 0)

{

max = arr[i];

}

}

if (!max)

{

cout << "Not found";

}

else

{

cout << "Max: " <<max;

}

}

342

Объяснение:

Решение на языке pyhton ниже. Данная задача относится к заданию 14 ЕГЭ по информатике. Видео-разбор подобной задачи можно посмотреть по ссылке (решение в ручную) https://xn--b1aga7bdp8a.xn--p1ai/product/%d0%b7%d0%bd%d0%b0%d1%87%d0%b5%d0%bd%d0%b8%d0%b5-%d0%b0%d1%80%d0%b8%d1%84%d0%bc%d0%b5%d1%82%d0%b8%d1%87%d0%b5%d1%81%d0%ba%d0%be%d0%b3%d0%be-%d0%b2%d1%8b%d1%80%d0%b0%d0%b6%d0%b5%d0%bd%d0%b8%d1%8f/

s=8**115-4**123+2**543-15

k=0

while s!=0:

   if s%2==1:

       k=k+1

   s=s//2

print(k)