Цифровые носители информации - компакт-диски, дискета, карты памяти
Var
count_num:integer;
number:real;
begin
count_num:=0;
repeat
readln(number);
writeln('Введенное число: ',number);
if (number <> 0) then Inc(count_num);
until (number =0);
writeln('Количество введеных чисел: ', count_num);
end.
var
m: array [1..10000] of integer;
i,n: integer;
begin
readln(n);
for i := 1 to n do
read(m[i]);
for i := 1 to n do
write(m[i], ' ');
writeln;
for i := n downto 1 do
write(m[i],' ')
end.
Program chisla;
uses crt;
var a,b,n,k: integer;
begin
b:=0;
Writeln('Нахождение чисел кратным 2-м');
Writeln('Введите интервал чисел: ');
Readln(n,k);
for a:=n to k do
if (a mod 2=0) then
begin
write(a,' ');
b:=b+1;
end;
end.
#include <iostream>
using namespace std;
int main() {
int n, arr[5];
cin>>n;
arr[0]=n/10000; arr[1]=n%10000/1000;
arr[2]=n%1000/100;arr[3]=n%100/10;
arr[4]=n%10;
n=10000*arr[4]+1000*arr[3]+100*arr[2]+10*arr[1]+arr[0];
cout<<n;
return 0;
}