Начало
b=18
a=18/3
b=b-3
a=a-5
покажи b
покажи a
конец.
Протокол алгоритма:
шаг 1 2 3
b 18 15 15
<span>a 6 1 1</span>
Третий ответ, если составить цикл и ветвление то он пройдет все клетки
Нажмите клавишу Ctrl<span> на клавиатуре и удерживайте ее нажатой</span>
program prim;
var a,b:real;
begin
writeln('Введите 2 числа: ');
read(a,b);
if a>b then writeln('Большее число = ', a)
else writeln('Большее число = ', b);
end.
( На самом деле это очень легко) )
1.
var n:integer;
begin
readln(n);
if n mod 2 = 0 then
writeln('Четное')
else
writeln('Ну четное');
<span>end.
2.
var n:integer;
begin
readln(n);
if n<>0 then
writeln('y=',1/n)
else
writeln('функция не определена');
<span>end.
</span>3.
var numb,ts,sot,des,ed:integer;
begin
readln(numb);
ts:=numb div 1000;
sot:= numb div 100;
sot:= sot mod 10;
des:=numb mod 100;
des:=des div 10;
ed:=numb mod 10;
if (ed*1000+des*100+sot*10+ts) = numb then
writeln('палиндром');
<span>end.
4.
var x:real;
begin
readln(x);
if x>=2 then
writeln(x)
else
writeln(sqr(x)-3);
<span>end.</span></span></span>