program ibragim;
Var i,e:integer;r:real;S:string;
begin
Write('Введите S:');
Readln(S);
val(S,i,e);
if e=0 then writeln('1') else
begin
val(S,r,e);
if e=0 then writeln('2') else writeln('0');
end;
end.
Апостиль в Лос-Анджелесе без лишних нервов и бумажной волокиты
Основные этапы разработки сайта для стоматологической клиники
Продвижение своими сайтами как стратегия роста и независимости