Помогите решить работу
Ответы
Ответ:
Объяснение:
1)var x,y,z:integer;
begin
readln (x,y,z);
if (abs(x)-abs(y))=0 then
writeln ('Да');
if (abs(x)-abs(z))=0 then
writeln ('Да');
if (abs(y)-abs(z))=0 then
writeln ('Да');
end.
2)var x,y,z:integer;
begin
x:=1;
while x<>0 do begin
readln (x);
y:=x mod 10;
if (x>99) and (y=5) then
z:=z+x;
end;
writeln (z);
end.
3)var x,y,z,N:integer;
begin
readln (n);
for var i:=1 to N do begin
readln (x);
if (x>9) and (x<100) and (x mod 7=0) then
z:=z+1;
end;
writeln (z);
end.
4)
const N=10;
var x,y,z:integer;
a:array [1..N] of integer;
begin
for var i:=1 to N do begin
if (a[i] mod 2=0) and (a[i] mod 3 <>0) then begin
z:=z+1;
writeln (a[i]);
end;
end;
writeln (z);
end.
P.S.Если с ответом все норм, отметь его потом как лучшее, заранее спасибо :)