program t;
var n, n2, s: integer;
begin
readln(n);
n2:=(n mod 10)*1000+(n div 10 mod 10)*100+(n div 100 mod 10)*10+(n div 1000);
s:=n+n2;
writeln(n2);
writeln(s)
end.
Таблицы - во вложении.
Пустые ячейки означают, что значение переменной ещё не определено
Program train;
var
x, y, col: integer;
begin
writeln('введите вместимость вагона, тонн ');
readln(x);
writeln('введите количество зерна для перевозки, тонн');
readln(y);
col:=y div x;
if (x*col)<y then
Inc(col);
writeln('количество требуемых вагонов ', col);
end.
Тест
Введите вместимость вагона, тонн 3
Введите количество зерна для перевозки, тонн 10
Количество требуемых вагонов 4
C++
<span>#include<iostream>
using namespace std;
int main()
{
double r = 0.f, area = 0.f;
cout << "Enter radius of circle : ";
cin >> r;
area = 3.1415 * r * r;
cout<< "Area of circle : " << area;
<span>}</span></span>