А) 11111
б) Я несилен в украинском, напиши какое число надо перевести
Если точно по блок-схеме, то так:
Var A:integer;
Begin
Write('Введите число: ');ReadLn(A);
A:=A+1;
if A<0 then A:=Abs(A);
WriteLn(A);
End.
Но можно и проще:
Var
A:integer;
Begin
Write('Введите число: ');ReadLn(A);
A:=Abs(A+1);
Write(A)
End.
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Range(1,131,2).ToArray; a.Println
end.
<u>Результат</u>
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127 129 131
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
if (a<>b) and (a<0) and (b<0) and (c<0) then begin
(a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end
else Writeln('Сумма равна ',a+b+c)
end.