Begin
var c := 0;
var x := readinteger('Введите число:');
while x > 0 do
begin
x := x div 10;
c := c + 1;
end;
if(c = 3) then write('Да')
else write('Нет');
end.
1. - поет (потом рычит)
2. - рычит (потом кружится)
3. - кружится (потом машет хвостом)
4. - машет хвостом (потом зевает)
5. - зевает (потом пляшет)
6. - пляшет (потом поет)
Этот цикл длится 6 минут, за 44 минуты лисенок полностью пройдет его 7 раз и останется 2 действия. То есть, последний цикл заканчивается на "пляшет", +1 шаг - рычит, +1 шаг - рычит. Значит, лисенок через 44 минут будет рычать.
На языке pascal ABC .NET:
var k:integer;
Begin
k:=1;
for var i:=1 to 9 do
if (i mod 2)=0 then else k:=k*i;
write(k);
end.
В моем ответе поговорка слегка изменена: ложь до добра не доводит с:
#include <stdio.h>
#include <conio.h>
int main (int argc, char *argv[])
{
int A, k = 0;
double S = 0;
scanf("%d", &A);
while (A != 222)
{
if (A == 5) k++;
S += A;
scanf("%d", &A);
}
printf("k = %d\n",k);
printf("S = %f",S);
getch();
}