Предмет:
ИнформатикаАвтор:
anikahidaprogram raf105;
var a,b,x:real;
i,c:integer;
begin
write('Ввод: ');
a:=1;
b:=9;
readln(c);
c:= c-1;
for i:=1 to c do
begin
a:= a*10+9;
if i<2
then b:= b*10+1
else b:= b*10+81;
end;
x:= b-a;
writeln('Вывод: ',x);
end.
Язык программирования PascalABC
Автор:
anyayvjfДобавить свой ответ
Предмет:
МатематикаАвтор:
ladyq6gwОтветов:
Смотреть
Предмет:
Русский языкАвтор:
reaganОтветов:
Смотреть
Предмет:
Русский языкАвтор:
bonifacio411iОтветов:
Смотреть
Предмет:
Другие предметыАвтор:
andrewОтветов:
Смотреть