Program N1;
var
P,Loop,Result,temp: Integer;
begin
Result:=-1;
Loop:=2;
Read(P);
temp:=P*Loop;
While temp < 100 do
begin
temp:=P*Loop;
if temp>10
begin
Result:=temp;
temp:=200;
end
Loop:=Loop+1;
end
if Result=-1
writeln('Error');
else
write(Result);
end.
задачи
найти 2-ух значное число, кратное p и неравное ему.
нийти количество цифр в числе
нийти количество цифр в числе
Для начала было бы полезно написать какой язык программирования, а потом задать вопросы чего не понятно в задаче
pascal
со второй разобралась.
вот первую вообще не доходит
вот первую вообще не доходит
Так это даже 2 задачи,причём не связанные между собой?
Количество цифр в числе ищется элементарно,я даже тут где-то писал–целая часть десятичного логарифма числа +1
Количество цифр в числе ищется элементарно,я даже тут где-то писал–целая часть десятичного логарифма числа +1
Цитата: nastyanan
найти 2-ух значное число, кратное p и неравное ему.
нийти количество цифр в числе
нийти количество цифр в числе
Не пинайте за мой французский, но алгоритм элементарный:
Код: