Ответ:
Д
Объяснение:
Все четыре числа нужно подписать друг под другом, выповняв по правому краю. Затем просмотреть их слева направо попарно, отыскивая первое несовпадение . В котором будет единица, а в другом ноль - то и больше. Меньшее отбросить и сравнивать с прочими числами. Это показано во вложении.
Решение задачи в приложении (файл .cpp)
Будут вопросы по представленному коду - обращайся)
Program bi;
type tab=array[1..100,1..100] of integer;
var n,m,i,j,s:integer;
t:tab;
begin
readln(n);
readln(m);
for i:=1 to n do
for j:=1 to m do
readln(t[i][j]);
for i:=1 to n do
for j:=1 to m do
if(t[i][j] mod 2=0) then S:=S+t[i][j];
writeln('Mассив:');
for i:=1 to n do begin
writeln;
for j:=1 to m do
write(t[i][j],' ');
end;
writeln('сумма чётныч чисел ',S);
<span>end.</span>
Если я всё правильно понял, то должно быть так:
var a:integer;
begin
if a mod 2 = 0 then a:=a*a else a:=a*a*a;
write(a);
end.
begin
//1 вариант
for var i := 0 to 100 do
if i.isEven then Print(i);
Println;
//2 вариант
foreach var x in Range(0, 100, 2) do
Print(x)
end.