№1
var a, b, c: integer;
begin
read(a, b, c);
if((a = b) or (b = c) or (c = a)) then
write('Треугольник равнобедренный')
else
write('Треугольник неравнобедренный');
end.
БЛОКСХЕМА:
начало
ввод сторон(a, b, c)
если a = b или b = c или с = a, то
вывести: 'треугольник равнобедренный'
иначе вывести: 'треугольник неравнобедренный'
конец
№2
var n, s, i: integer;
begin
s := 0;
read(n);
for i := 20 to n do begin
if (i mod 2 <> 0) then s := s + i;
end;
write(s);
end.
БЛОКСХЕМА:
начало
s := 0, i := 20
ввод числа n
пока i не равно n
если i - нечётное, то
прибавить к s
вывести s
конец
<u><em>Я думаю, что программа может управлять работой компьютера, если она находится в оперативной системе!</em></u>Надеюсь, что помогла:з
type
mas = array [1..10] of integer;
var
m : mas;
a,l : integer;
function re () : integer; //Считываем число
var a : integer;
begin
writeln ('Введите число');
readln (a);
Result :=a;
end;
function C(var m : mas; a : integer) : integer; //Разбиваем на числа
var i : integer;
begin
i := 0;
While a > 0 do
begin
i := i +1;
m[i] := a mod 10;
a := a div 10;
end;
Result := i;
end;
procedure wr (a : mas; l : integer); // Вывод массива
var i : integer;
begin
writeln ('Resultat :');
for i := 1 to l do
write (a[i],' ');
end;
procedure sort (var a : mas; l : integer); // перевернуть массив
// т.е 1234 -> 4321
var i,buf : integer;
begin
for i := 1 to l div 2 do
begin
buf := a[l-i+1];
a[l-i+1] := a[i];
a[i] := buf;
end;
end;
begin
a := re();
l := C(m,a);
sort (m,l);
wr (m,l);<span>
end.
на примере числа
125
после выполнения функции C
m[1] = 5 m[2] =2 m[3] =1
после выполнения процедуры Sort
m[1] =1 m[2] =2 m[3] =5
Вывод на экран элементов массива через пробел
1 2 5
</span>
var s: array[1..100] of string;
i, _tvoi_schetchick_: integer;
a: string;
begin
_tvoi_schetchick_:= 0;
readln(a);
if a <> 'END' then
repeat
if a <> 'END' then begin
inc(_tvoi_schetchick_);
s[_tvoi_schetchick_]:= a;
readln(a);
end;
until a = 'END';
for i:= 1 to _tvoi_schetchick_ do writeln(s[i]);
end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Dec2Bin(t: integer): string;
begin
var r: string := '';
while t >= 2 do
(r, t) := (t mod 2 + r, t shr 1);
r := t + r;
Result := '0' * (8 - r.Length) + r
end;
function Bin2Dec(s: string): integer;
begin
Result := 0;
var p := 1;
for var i := s.Length downto 1 do
begin
Result += (s[i].ToDigit) * p;
p *= 2
end
end;
function GenSeqCycle(n: integer): sequence of integer;
begin
var s := Dec2Bin(n);
loop 8 do
begin
yield Bin2Dec(s);
s := s[2:] + s[1]
end
end;
begin
GenSeqCycle(ReadInteger).Max.Println
end.