1) Президент управляет страной
2) Письмо можно отправить
<u>Pascal:</u>
program loop;
var a,s:real;
begin
While s < 100 do
begin
readln(a);
s:= s+a;
end;
end.
<u>-----------------------------</u>
<u>Python:</u>
s = 0
while s < 100:
s += float(input())
<u>-----------------------------</u>
<u>Блок-схема:</u>
<u>"Приложил скриншот" см. ниже:</u>
Если нуль возможен, то примерно так.
function whatsign(a: array of integer):boolean;
var find:boolean;
i:integer;
begin
i:=min(a);
find:=false;
result:=false;
while (not find) and (i<=max(a)) do
begin
find:=a[i]<>0;
if find then result:=a[i]>0;
i:=i+1;
end;
end;
Функция вернёт True, если раньше положительное и False, если раньше отрицательное.
Примерно так. Проверь синтаксис объявления переменных и функции.
26 = 00011010
<span>-41 = 10101001</span>
Begin
Writeln('Унылая пора! Очей очарование!');
Writeln('Приятна мне твоя прощальная краса –');
Writeln('Люблю я пышное природы увядание,');
Writeln('В багрец и золото одетые леса.');
Writeln('А. С. Пушкин');
end.