napisz w programie Turbo Pascal program wykonujący lustrzane odbicie wczytanej liczby naturalnej.
ja bym zrobił coś takiego, w najprostszej wersji, w załączniku spakowany kod .pas
program odbicie;
uses crt;
var a:longint;
b,c:string;
dlugosc,i:byte;Begin
clrscr;
write('Podaj liczbę naturalną : ');
readln(a);
str(a,b);
dlugosc:=length(b);
for i:=1 to dlugosc do
c:=b[i]+c;
writeln;
write('Jej odbicie lustrzane : ');
write(c);readln
End.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
ja bym zrobił coś takiego, w najprostszej wersji, w załączniku spakowany kod .pas
program odbicie;
uses crt;
var a:longint;
b,c:string;
dlugosc,i:byte;
Begin
clrscr;
write('Podaj liczbę naturalną : ');
readln(a);
str(a,b);
dlugosc:=length(b);
for i:=1 to dlugosc do
c:=b[i]+c;
writeln;
write('Jej odbicie lustrzane : ');
write(c);
readln
End.