Какое значение примет переменная b после выполнения данного алгоритма a : = 342; b : = 512; a : = a div 10 mod 10; b : = a + b mod 10;
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
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.
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.