Изменились носители информации из-за нового дела, культуры и время.
Uses crt;
var a,b,c,ch1,ch2:integer;
begin
readln (a,b,c)
if (a>b) and (a>c) then begin ch1:=a+1; ch2:=a-1;end;
if (b>c) and (b>a) then begin ch1:=b+1; ch2:=b-1;end;
if (c>b) and (c>a) then begin ch1:=c+1; ch2:=c-1;end;
writeln ('преведущее = ',ch2,'последущее = ',ch1);
end.
Не пойму что тут делать с goto
1)1110001
2)10100111
3)101101100
4)1000001110
<u>Будет напичатано вот что:</u>
<em>(Черточками выделю экран) </em>
-------------------
136101521283645
___________
<em>Точно так, напечатает машина.</em>
<em>1) write - без ln, печатает все в одну строку.</em>
<em>2) Команда вывода стоит в самом цикле, поэтому выводяться все числа слитно.</em>
Var a,d,b,s:real;
begin
write('a = '); readln(a);
write('d = '); readln(d);
b:=sqrt(d*d-a*a);
s:=a*b;
writeln('S = ',s);
end.
Пример:
a = 4
d = 5
S = 12