Паскаль. Задачки - Помощь студентам - Страница 2

flame-93 · 30.11.2011, 19:23

Я не думаю что псевдографика есть в 9м классе)

flame-93 · 30.11.2011, 19:50

Ну так помогите 2ую сделать?

izoalex · 30.11.2011, 20:02

program ll;
var
t,s,k,n,i:integer;
begin
writeln('n=');
readln(n);
writeln('k=');
readln(k);
t:=1;
for i:=1 to n do
t:=t*10;
for i:=t div 10 to t-1 do
if i mod k=0 then s:=s+i;
writeln(s);
readln;
end.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
задачки на Паскаль	Ainash	Помощь студентам	5	21.10.2011 11:19
задачки на Паскаль	Ainash	Паскаль, Turbo Pascal, PascalABC.NET	4	20.10.2011 14:16
Задачки паскаль....	Rpk	Фриланс	15	15.10.2009 18:00

30.11.2011, 19:23	#11
flame-93 Пользователь Регистрация: 24.11.2011 Сообщений: 13	Я не думаю что псевдографика есть в 9м классе)

30.11.2011, 19:50	#12
flame-93 Пользователь Регистрация: 24.11.2011 Сообщений: 13	Ну так помогите 2ую сделать?

30.11.2011, 20:02	#13
izoalex Пользователь Регистрация: 02.11.2011 Сообщений: 22	program ll; var t,s,k,n,i:integer; begin writeln('n='); readln(n); writeln('k='); readln(k); t:=1; for i:=1 to n do t:=t*10; for i:=t div 10 to t-1 do if i mod k=0 then s:=s+i; writeln(s); readln; end.