Какое значение будет принемать значение y после выполнения фрагментов программы: 1. var x,y: integer; - id148538120200610 от ghostcatchy 10.06.2020 09:27

Question

Информатика: Какое значение будет принемать значение y после выполнения фрагментов программы: 1. var x,y: integer; begin y: =0; for x: =1 to 9 do y: =y+x; writeln(y=,y); end. 2.var x,y: integer; begin y: =0; for x: =10 downto 5 do y: =y+1 writeln(y=,y); end 3. var x,y: integer; begin y: =1; x: =15; while x 5 do begin x: =x-3; y: =y*x; end; writeln(y=,y) end. 4. var x,y: integer; begin y: =1; x: =10; repeat y: =y*x+x; x: =x-2; until x 0; writeln(y=,y); end. напишите подробное решение и как получаются ответы

ghostcatchy · Accepted Answer

program summa;
var a:= 0;
var b:= 0;
begin
writeln('Введите число');
   readln(a);
   if a>0 then
    repeat {повторяй}
      a:= a+b;
   writeln('Введите еще число');
   readln(b);
   until (b<0); {до тех пор, пока условие не будет истинным}
     writeln('Было обнаружено отрицательное число');
        if a>0 then
     writeln('Полученная сумма: ',a)
     else writeln('Отрицательное число было первым');
     readln;
end.
Программа на выходе сообщает:
Введите число
3
Введите еще число
45
Введите еще число
9
Введите еще число
-8
Было обнаружено отрицательное число
Полученная сумма: 57

MOGZ ответил