Получить "перевертыш" заданного трехзначного числа.

1)

program n1; uses crt; var a,b,c,x: integer; beginclrscr; writeln('vvedite chislo'); readln(x); a: =x div 100; c: =x mod 10 ; b: =x div 10 mod 10; if a=0 then writeln('chislo ne trehznachnoe! ') else writeln(c,b,a); readlnend.

 

2) или через string

 

program n1; uses crt; var a: string; beginclrscr; writeln('vvedite chislo'); readln(a); if length(a)> 3 then writeln('oshibka') elsewriteln(a[3],a[2],a[1]); readlnend.

программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0

  program 198;

var x,y: real;

begin;

readln (x; y);

if x> 0 and y> 0 then

writeln (1 chetvert);

end;

if x< 0 and  y> 0 then

writeln (2 chetvert);

end;

if x< 0 and  y< 0 then

writeln (3 chetvert);

end;

if x> 0 and  y< 0 then

writeln (4 chetvert);

end;

end.

Это выражение означает следующее: машина без человека - ничто. она не будет приносить абсолютно никакой пользы, если за ней не сидит тот или иной человек (работник за каким-нибудь станком, или дизайнер с программой по проектированию, к примеру). сам станок или одна только программа и компьютер не способны что-либо произвести: всю работу делает человек; машина является лишь средством облегчения и ускорения работ человека.