надо составить программу в Паскаль
в конце я не уверенна, надо как то по другому соединить их ....
ПОМОГИТЕ,ПОЖАЛУЙСТА... ОЧЕНЬ НАДО
в конце я не уверенна, надо как то по другому соединить их ....
ПОМОГИТЕ,ПОЖАЛУЙСТА... ОЧЕНЬ НАДО
More Questions From This User See All
Answers & Comments
Begin
Read (x);
If x mod 5 = 0 and x mod 13 = 0 then
Write(x);
end.
Var x: integer;
Begin
Read (x);
If x mod 5) = 0 then
x кратно 5 else
if x mod 13=0 then
x кратно 5 else
левое число
Write(x);
end.
Begin
Read (x);
If x mod 5 = 0 and x mod 13 = 0 then
Write(x);
end. должно работать!