Ответы 1
program tak;
var a,b,c,N:integer;
begin writeln('введите число N (0<=N<=9) ');
readln(N);
b:=0;
for a:=99 downto 10 do begin
if (N <> a div 10) and (N <> a div 10) then
b:=a+b;
end;
writeln(b);
end.
эт первая
program tak2;
var a,b,c,d:integer;
begin writeln('введите два числа ');
readln(a,b);
d:=0;
for c:=99 downto 10 do begin
if (a = c div 10) or (b = c mod 10) then
d:=c+d;
end;
writeln(d);
end.
эт вторая
var a,b,c,N:integer;
begin writeln('введите число N (0<=N<=9) ');
readln(N);
b:=0;
for a:=99 downto 10 do begin
if (N <> a div 10) and (N <> a div 10) then
b:=a+b;
end;
writeln(b);
end.
эт первая
program tak2;
var a,b,c,d:integer;
begin writeln('введите два числа ');
readln(a,b);
d:=0;
for c:=99 downto 10 do begin
if (a = c div 10) or (b = c mod 10) then
d:=c+d;
end;
writeln(d);
end.
эт вторая
Премиум статус
Получайте самые быстрые
ответы на свои вопросы
ответы на свои вопросы
У вас остались
вопросы?
вопросы?