<u><em>Задача №3</em></u><em><u> </u></em>
Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100; a3:=a3 div 10;
a4:=a mod 10;
if (a1+a2)=(a3+a4) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.
<u><em>Задача №4</em></u><em><u> </u></em>
Var a,a1,a2,a3:integer;
Begin
Readln(a)
;a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
if (a1=a2) and (a2=a3) then writeln('Условие задачи выполнено')
else writeln('Условие задачи не выполнено');
End.
<u><em>Задача №5</em></u><u><em> </em></u>
Var a,a1,a2,a3,a4:integer;
Begin
Readln(a);
sqr(a);
if (a>=100) and (a<=999) then begin
a1:=a div 100;
a2:=a div 10; a2:=a2 mod 10;
a3:=a mod 10;
end;
if (a>=1000) and (a<=9999) then begin
a1:=a div 1000;
a2:=a div 100; a2:=a2 mod 10;
a3:=a mod 100;
a3:=a3 div 10;
a4:=a mod 10;
end;
if (a1=3) or (a2=3) or (a3=3) or (a4=3) then writeln('Условие задачи выполнено') else writeln('Условие задачи не выполнено');
<span>End.</span>
3 кбайт = 3000 байт
1536:40=38,4 - байт за 1 миллисекунду
38,4*3000=115200 миллисекунд
//PascalABC.NET 3.0
const n = 5;
begin
var a := ArrRandomReal(n);
var b := ArrRandomReal(n);
write('Длины первого катета: ');
foreach var i in a do write(i : 5 : 2);
write(NewLine, 'Длины второго катета: ');
foreach var i in b do write(i : 5 : 2);
var imax := 0; for var i := 1 to n - 1 do
if a[imax] * b[imax] < a[i] * b[i] then
imax := i;
writeln(NewLine, 'Номер: ', imax + 1);
writeln('Катеты: ', a[imax] : 0 : 2, ' ', b[imax] : 0 : 2);
writeln('Площадь: ', a[imax] * b[imax] / 2 : 0 : 2);
<span>end.</span>
Объяснение:
Например:дети 40кг одежда 3кг сумка 2кг вещи 5 кг удачки 10кг обувь 1 кг рыба 20 кг 40+3+2+5+1+20=71 вот так вроде
Боря и мальчик из Кирова не были в москве и спб, значит Боря - Омск.
Гриша жил с москвичом, а мальчик из кирова к ним заходил, значит, Гриша из спб.
Егор играл в шахматы с москвичом, значит, сам он из кирова.
Витя из москвы.