var a:string;
i:integer;
c:boolean;
begin
readln(a);
repeat
if pos('+',a)<>0 then begin inc(i); delete(a,pos('+',a),1); end;
if pos('-',a)<>0 then begin inc(i); delete(a,pos('-',a),1); end;
if (pos('+',a)=0) and (pos('-',a)=0) then c:=true;
until c;
writeln(i);
end.

0 0

4 года назад

Составить программу, которая выводит на экран в обратном порядке нечетные числа от 29 до 1 в Pascal ABC.Составить программу,кото

Олег Савченко [212]

Var i:integer;
begin
i := 30;
while (i >= 1) do
begin
if (i mod 2 = 1) then
writeln(i);
i := i - 1;
end;
<span>end.
----------------
2)
var i, a: integer;
begin
for i:=0 to 30 do
if (i mod 2 = 1) then
a := a + i;
writeln(a);
end.
<span>------------
Удачи:)</span></span>

0 0

3 года назад

Прочитать ещё 2 ответа

Стр 56 №52 восьмерик(1,0,3) шатер(1,3,3) четверик(4,0,5) восьмерик(5,5,3) шатер(5,8,3) восьмерик(9,0.3) шатер(9,3,3)

Ladybird

Просто фотку если хочешь ответ

0 0

4 года назад

Написать программу для вычисления дискриминанта d квадратного уравнения ax2 + bx + c = 0. Разработать тесты проверки правильност

slavkkin

Выложу решение полного уровнения.

0 0

4 года назад