Определите значение целочисленных переменных a и b после выполнения фрагмента программы: a: =3+2*4; - id149281220220506 от ryzhofftosha20 06.05.2022 23:47

Question

Информатика: Определите значение целочисленных переменных a и b после выполнения фрагмента программы: a: =3+2*4; b: =(a mod 10)+24; a: =(b div 10)+1 1) a=3; b=24; 2) a=3; b=25; 3)a=4; b=25; 4)a=3; b=34; б) a: =(3+2)*4; b: =(a mod 5)+11; a: =(b div 3)+1 1)a=4; b=11; 2)a=4; b=12; 3)a=5; b=11; 4)a=6; b=15; в) a: =(3-2)*4; b: =(a mod 5)+12; a: =(b div 3)+1 1)a=2; b=12; 2)a=2; b=16; 3)a=3; b=12; 4)a=6; b=16; г a: =24-2*4; b: =(a mod 6)+12; a: =(b div 7)+1 1)a=2; b=22; 2)a=4; b=22; 3)a=3; b=16; 4)a=6; b=16;

ryzhofftosha20 · Accepted Answer

Первая программа:

program p;

var
x, y: integer;

begin
writeln('Введите x >> ');
read(x);
writeln('Введите y >> ');
read(y);
if (x<0) and (y>0) then
    begin
      writeln('Точка принадлежит второй координатной четверти');
    end
   else
    begin
      writeln('Точка не принадлежит второй координатной четверти');
    end
end.

Вторая:

program p2;

var
n, i, sum, j: integer;
arr: array[1..10] of integer;

begin
writeln('Введите число n');
read(n);
while n>0 do
    begin
      inc(i);
      arr[i]:=n mod 10;
      n:=n div 10;
    end;
for j:=1 to i do
    begin
      sum+=arr[j];
      //write(arr[j]);
    end;
if sum>9 then3
    begin
      writeln('Сумма больше 9');
    end
else
    begin
      writeln('Сумма меньше 9');
    end
end.

MOGZ ответил