Var a: string;
i: integer;
begin
readln(i);
a := IntToStr(i);
for i := length(a) downto 1 do
write(a[i]);
<span>end.
Как вариант. Строку считывать не стал, раз уж работаем с числом, то и вводится путь число:)</span>
// версия для простого паскаля
var age:byte;
begin
writeln(' Введите ваш возраст в годах. ');
readln(age);
writeln(' Через 5 лет вам будет ', age+5, ' лет');
end.
14 млн. Байтов 112млн. Битов или 14 тыс. Килобитов
Среднее значение округляется до целого(дробная часть отсекается)
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int main()
{
int a[10];
int sum = 0;
cout << "Enter the growth of ten people:" << endl;
for(int i = 0; i < 10; i++)
{
cin >> a[i];
sum += a[i];
}
cout << "\nThe total growth of all people equal to " << sum << "sm"
<< "\nThe average growth of all people equal to " << (sum / 10) << "sm" << endl;
return 0;
}