Помогите решить задачки (на циклы):
1) Подсчитать k-- количество цифр неотрицательного целого числа n.
2) Найти d--старшую (левую) цифру неотрицательного целого числа n.
3) Определить, сколько раз (k) цифра 8 встречается среди первых пяти цифр дробной части положительного вещественного цичла x.
4) Получить целое число k добавлением слева цифры 6 к десятичной записи натурального числа n (например, k=6107 при n=107).
5) Логической переменной t присвоить значение true, если натуральное число k есть степень 10(1,10,100...), и значение false иначе.
по первой задаче можно так:
writeln('Vvedite chislo');
readln(n);
k:=length(inttostr(n));
writeln(k);
Артемий2, раздел то паскалевский, а стандартной функции inttostr там нету. Используй str(longint; Var string)). Хотя в справке дается пример аналога inttostr с использованием str.
я просто в uses добавил SysUtils. Но ты прав, я забыл про str()!
Артемий2 - не пойдет... Задачи на циклы, следовательно надо просто проходить по числу, и делить его на 10, пока оно не станет равным 0, одновременно с этим увеличивая счетчик цифр...
Диона, поправь название темы (
Про циклы почему-то не обратил внимание, за это извиняюсь..
Чувствуется на долго это ...
1)
var
n: LongInt;
k: Byte;
begin
write('n = '); readln(n);
k := 0;
if n = 0 then k := 1 else
while (n > 0) do begin
inc(k);
n := n div 10;
end;
writeln(k);
end.
var
n, temp: LongInt;
left, k, t: Byte;
begin
write('n = '); readln(n);
k := 0;
temp := n;
while (temp > 0) do begin
inc(k);
temp := temp div 10;
end;
if k < 6 then writeln('No') else begin
temp := n;
t := k - 6;
k := 0;
while (k < t) do begin
inc(k);
temp := temp div 10;
end;
writeln(temp mod 10);
end;
end.
var
n: Single;
temp: LongInt;
k, t: Byte;
begin
write('n = '); readln(n);
temp := Round(n - Frac(n));
k := 0;
while (temp > 0) do begin
inc(k);
temp := temp div 10;
end;
if k < 5 then writeln('No') else begin
temp := Round(n - Frac(n));
t := k - 5;
for k := 1 to t do temp := temp div 10;
k := 0;
while (temp > 0) do begin
if temp mod 10 = 8 then inc(k);
temp := temp div 10;
end;
writeln(k);
end;
end.
var
n, temp: LongInt;
k: Byte;
begin
write('n = '); readln(n);
if n = 0 then n := 60 else begin
temp := n;
k := 0;
while (temp > 0) do begin
inc(k);
temp := temp div 10;
end;
n := n + 6 * Round(Exp(k * ln(10)));
end;
writeln(n);
end.
var
n, last: LongInt;
t: Boolean;
count1: Byte;
begin
write('n = '); readln(n);
count1 := 0;
while (n > 0) and (count1 < 2) and (n mod 10 in [0, 1]) do begin
last := n mod 10;
if last = 1 then inc(count1);
n := n div 10;
end;
t := (last - count1 = 0) and (n mod 10 in [0, 1]);
writeln(t);
end.
Диона, я прочел твой монолог, а теперь ты прочти вот это:
во-первых, если я дал время на то, чтобы ты соизволила поменять название темы - это не значит, что я ЗАБЫЛ об этом... Ты НЕ соизволила - согласно пункту 4 http://forum.pascal.net.ru/rules.html и Пункту 1 правил Раздела "Задачи" тема закрывается...
во-вторых: кто тебе вообще сказал, что твое сообщение в чужую тему кто-нибудь мог увидеть? Оно было удалено в течении нескольких минут, ибо не надо задавать свои вопросы (да еще и целую кучу) в чужой теме...
в-третьих, я тоже читал много текстов на китайском языке... Только вот не понял ничего, потому что просто ЧИТАЛ, а проще - СМОТРЕЛ на красивые иероглифы. А вот когда я начал УЧИТЬ язык (не китайский, немного другой), разбираться в грамматике, в синтаксисе, то почему-то получилось... Странно, правда?
Закрыто.