Задача 1:
var x:longint;
i,c,sum:integer;
begin
c:=0;
sum:=0;
write('Введите число: '); readln(x);
while x <> 0 do begin
i:=x mod 10;
x:=x div 10;
if i mod 2 = 0 then begin
c:=c+1;
sum:=sum+i;
end;
end;
if c > 0 then write('Среднее арифметическое всех чётных чисел равно: ', sum/c:0:2)
else write('Чётных цифр нет!');
end.
Задача 2:
var x,y,sum:integer;
begin
sum:=0;
y:=0;
while True do begin
write('Введите число: '); readln(x);
if x = 0 then break
else if abs(x-y) > sum then sum:=abs(x-y);
y:=x;
end;
write(sum);
end.
class Program
{
static void Main(string[] args)
{
int a = int.Parse(Console.ReadLine());
int b = int.Parse(Console.ReadLine());
int x = int.Parse(Console.ReadLine());
int y = int.Parse(Console.ReadLine());
int z = int.Parse(Console.ReadLine());
if (x <= a && y <= b || y <= a && x <= b ||
x <= a && z <= b || z <= a && x <= b ||
z <= a && y <= b || y <= a && z <= b)
Console.WriteLine("Пройдет");
else
Console.WriteLine("Не пройдет");
Console.ReadKey();
}
}
Объяснение:
.
