Program chislo;
Var a,s:integer;
Begin
Write (a);
Read (a);
s:=a div 10; для двузначного
s:=a div 100; для трехзначного
Writeln ('Первая цифра числа ',s);
End.
RT <span>Файл RT является одним из файлов категории Интернет-файлы. Его полное название это RealText Streaming Text File. Формат файла RT создан RealNetworks. Если вы попали к нам, наверное Вы ищете программы, которые помогут Вам работать с этим конкретным расширением. На следующих страницах вы найдете списки программ, поддерживающих файл RT сортированные по операционных системах. Если наша база данных содержит информацию о конвертировании файла RT, Вы обязательно найдете его здесь.</span>
Ответ:
Var
y,x: integer;
begin
writeln('Ведите ваше число:');
read(x) ;
if x > 2 then
writeln('Результат y =: ', x+3)
Else
if x <=- 2 then
writeln('Результат y =: ', 1 div x);
Readln ;
end.
<span>a%5==0, </span><span>это проверка кратности, "%" - это действие которое даёт отстаток от деления на число, если остатка нет, т.е. он равен нулю, то "а" делится на число.</span>
<span>а>max тут думаю понятно, сверка с текущим максимумом)</span>
<span>если оба условия выполняются, то объявляется новый максимум)</span>