Нахождение цифры прогресси

@igro · Регистрация: 21.03.2013

Author24 — интернет-сервис помощи студентам

Учитель 3 за четверть поставит, если задачу не сделаю. Хелп! Нужно составить программу, которая будет выводить k-ую ЦИФРУ(не число) двух прогрессий одновременно: 1234567891011и т.д. и 1491625364964и т.д. Т.е. если к=10, то должно вывести 1 и 4. Заранее спасибо.

@Кызюавка · 21.03.2013, 11:01

Pascal

uses crt;
var a,aa:array[1..11] of integer; i:byte; s:string; k:integer;
begin
write('Введите k: '); readln(k);
writeln('Числовые последовательноси: ');
for i:=1 to 11 do
begin
a[i]:=i; aa[i]:=sqr(i);
write(a[i]:3, ' ');
end;
writeln;
writeln('и');
for i:=1 to 11 do
 
write(aa[i]:3, ' ');
writeln;     writeln('Вывод: ');
Str(a[k],s); write(s[1], ' и ');
Str(aa[k],s); write(s[1]);
end.

@igro 0 / 0 / 0 Регистрация: 21.03.2013 Сообщений: 3
		1
	Нахождение цифры прогресси 21.03.2013, 09:10. Показов 1024. Ответов 1 Метки нет (Все метки) Учитель 3 за четверть поставит, если задачу не сделаю. Хелп! Нужно составить программу, которая будет выводить k-ую ЦИФРУ(не число) двух прогрессий одновременно: 1234567891011и т.д. и 1491625364964и т.д. Т.е. если к=10, то должно вывести 1 и 4. Заранее спасибо. 0

	21.03.2013, 11:01

Нахождение цифры прогресси

Решение