Вот как я делаю,но там рядом со всеми рисунками есть ответы,и плюс во втором я думаю что до пункта З,в третьем и пятом до пункта М
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:BigInteger;
if not BigInteger.TryParse(ReadlnString('n='),n) then
Writeln('Введенное не является целым числом')
else
Writeln(n.IsPowerOfTwo?'YES':'NO')
end.
<u>Пример</u>
n= 2037035976334486086268445688409378161051468393665936250636140449354381299763336706183397376
YES
№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
конец
18 пакетиков зилоного
2^2 = 4 пакетиков чорнаго
18 + 4 = 22 пакетиков всего значет стаканов 22 и где вариант 22 аа
Программа без синтаксических ошибок:
program asd;
var
a,b,c,n, k: longint;
const i=10; j=10;
begin
n:=10*i + 15*j;
write(n,'');
a:= 0;
write(a,' ');
b:= 1;
write(b,' ');
for k:=3 to n do begin
write(a+b,' ');
c:= b;
b:= a + b;
a:= c;
end;
readln
end.
Так как условия задачи нет, то делает ли программа то, что нужно - неизвестно.