Var a,b:integer;
begin
writeln('Введите число');
readln(a);
b:=(a mod 10)*10+(a div 10);
writeln('Ответ');
writeln(b);
end.
1.Логические данные (булевский тип)
2.Символьные данные
2.1.текст
3.Арифметические данные
3.1. Данные с фиксированной точкой
3.1.1 целые числа
3.2. Данные с плавающей точкой
3.2.1. одинарная точность
3.2.2. двойная точность
4213₈ = 100 010 001 011₂ = 100010001011₂ = 1000 1000 1011₂ = 88B₁₆ = 11 + 8×16 + 8×16² = 11 + 128 + 2048 = 2187₁₀
Предполагается, что будет введено минимум одно значение.
varmax,a : integer;beginreadln(a);max := a;repeatreadln(a);if (a > max) and (a <> 0) thenmax := a;until a = 0;writeln(max);readln;end.
P.S. Если понравилось решение не забудь отметить как лучшше. ;)
Подробнее - на Znanija.com -
znanija.com/task/1506362#readmore