урок 1-4
Переменные и константы
Оператор присваивания
Арифметические выражения
Стандартные процедуры и функции
урок 5
Найти сумму цифр двузначного числа
m:=x mod 10; (разряд единиц)
n:=x div 10; (разряд десятков)
s:=m+n;
program pr10;
uses crt;
var x,m,n,s: integer;
begin
clrscr;
writeln('x=?');
readln(x);
m:=x mod 10;
n:=x div 10;
s:=m+n;
writeln('s=',s);
end.
Задание1 Поменять местами первую и последнюю цифру двузначного числа
Задание2
Найти сумму цифр трехзначного числа
Задание3 Поменять местами первую и последнюю цифру трехзначного числа
