Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

1) Дано целое число. Определить кратно ли оно 5 и 10

2) Написать программу,которая определяет,принадлежит ли точка(х,у) графику функции у=ах2+bх+с

Ответ оставил Гость

1)

var a:integer;
begin
readln(a);
if a mod 5=0 then writeln(yes) else writeln(no);
if a mod 10=0 then writeln(yes) else writeln(no);
end.