Ин
Информатика
13.06.2022 22:37
Решено

Какое значение примет переменная b после выполнения данного алгоритма a : = 342; b : = 512; a : = a div 10 mod 10; b : = a + b mod 10;

Лучшие ответы
Ququki
0
4,5(58 оценок)
13.06.2022 16:00

program number7;

uses crt;

var a,b: integer;

begin

clrscr;

a : = 342;

b : = 512;

a : = a div 10 mod 10;

b : = a + b mod 10;

writeln ('17 div 3 = ',b);

readln

end.

b=6

Dmutrenkovladuslav12
16
4,5(84 оценок)
13.06.2022 00:52

program zamena;  

uses crt;  

var s: string;         i: integer; begin

      clrscr;

      write('введите строку: ')      readln(s);       if pos('над',s)< > 0 then            begin              i: =pos('над',s);               delete(s,i,3);               insert('под',s,i);               writeln('строка после замены: ',s);           end  else   writeln('нету такого слога! ');

    readkey; end.

Barsvtk
9
4,6(26 оценок)
13.06.2022 20:38

program s;

  uses crt;

  const n=7;

  var i,nomer,chislo: integer;

        a: array[1..n] of integer;

begin

  nomer: =0;

  chislo: =0;

  for i: =1 to n do

    begin

        write('элемент массива №',i,' = ');

        readln(a[i]);

    end;

  for i: =1 to n do

    if (a[i] mod 10 = 7) and (a[i]> 0) and ((a[i]< chislo) or (chislo=0)) then

        begin

            nomer: =i;

            chislo: =a[i];

        end;

clrscr;

  writeln('элемент массива №',nomer,', равный ',chislo, '');

end.

Присоединяйся к нам!
Зарегестрируйтесь
Уже есть аккаунт? Войти