Задание №1:
1) a = 6, b = 2; Ответ: 8;
2) a = 8, b = 6; Ответ: 14;
3) a = 13, b = -37; Ответ: - 24;
4) a = -2, b = 2; Ответ: 0 ;
Задание №2:
1) 6, 5;
2) 4, 0;
3) 89 99
4 ) -8 -2
Задание №3:
1) Even
2) Odd
3) Even
4) Even
Задание №4:
1) 66
2) 144
3) 21
4) 0
//Вариант 2
//Pascal ABC.NET v3.0 сборка 1111
Var
i,max,n,a:integer;
begin
readln(n);
max:=-2147483648;
i:=1;
while i<>n+1 do
begin;
readln(a);
if (max<a) and (a mod 2=0) then max:=a;
i:=i+1;
end;
write(max);
<span>end.
</span>
Пример ввода:
4
1
2
3
4
Пример вывода:
4
var a:integer;
begin
readln (a);
writeln('Цифра десятков: ',abs(a) div 10);
writeln('Цифра единиц: ',abs(a) mod 10);
end.
Пример:
25
Цифра десятков: 2
Цифра единиц: 5
Я точно не знаю( с таким не сталкивалась. Скорее всего не правильно.
1.4.50+4.50+4.00+4.00+4.00+3.25+4.25+
4.75=33.25=33.25×100=3325
2.3325÷8=415,625 главное первое число.
Если узнаете ответ напишите правильный