Program z1;
var
a,b,s:integer(real);
begin
readln(a);
readln(b);
s:=a+b;
writeln(s);
end;
Ответ: 3700
Программа(PascalABC Net):
var i, j, s, x: integer;
begin
for i:= 10000 to 99999 do begin
x:=i;
for j:= 1 to 4 do begin
if (x mod 10 = 3) and ((x mod 100) div 10 = 1) then s:= s + 1;
x:=x div 10;
end;
end;
writeln(s);
<span>end.</span>
Ответ:
2 5 3 1 6 4 7
Объяснение:
https://poisk.by/muzika.docx
Какой графический редактор? Paint? Кажется что подразумевается не 7 виндоуз, потому поэксперементировать трудно