Var n,m,a,b,c,d:integer;
begin
write('n = ');
readln(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n mod 100 div 10;
d:=n mod 10;
m:=d*1000+c*100+b*10+a;
writeln('m = ',m);
end.
Пример:
n = 1762
m = 2671
Ввод текста
редактирование
форматирование
печать
Ответ:
Берешь готовый движок и впиливаешь его на свою корявую форму. Си Шарп + интернет Эксплорер = ванлав
Объяснение:
Выдели изображение и нажми ctrl+c, а затем ctrl+v
Я не знаю через массив или как это писать, поэтому напишу простейший вариант
program n_pologitelnih;
uses crt;
var i,n,k,a:integer;
begin
clrscr;
write('Введи N=>> ');
readln(n);
for i:=1 to n do
begin
write('Введи число');
readln(a);
if a>0 then k:=k+1;
end;
write('Положительных чисел из ',n,' введенных - ',k);
readln;
end.