1.
program z1;
var x: integer;
begin
write ('x = ');
readln (x);
if (x mod 5 = 0) and (x mod 7 <> 0)and (x mod 13 <> 0)and (x mod 17 <> 0)and (x mod 19 <> 0) then write ('Число ',x,' делится на 5 и не делится на 7, 13, 17 и 19')
else write ('Число ',x,' не соответствует условиям')
end.
2.
program z2;
var x,y: real;
y:= 5*x/(x-4);
write ('y = ',y)
Объяснение:
Смотри картинки
1.
program z1;
var x: integer;
begin
write ('x = ');
readln (x);
if (x mod 5 = 0) and (x mod 7 <> 0)and (x mod 13 <> 0)and (x mod 17 <> 0)and (x mod 19 <> 0) then write ('Число ',x,' делится на 5 и не делится на 7, 13, 17 и 19')
else write ('Число ',x,' не соответствует условиям')
end.
2.
program z2;
var x,y: real;
begin
write ('x = ');
readln (x);
y:= 5*x/(x-4);
write ('y = ',y)
end.
Объяснение:
Смотри картинки