Var
n,k,s,d:longint;
begin
Write('Введите натуральное число: ); Readln(n);
s:=0; k:=0;
while n<>0 do begin
d:=n mod 10;
Inc(k);
s:=s+d;
n:=n div 10
end;
Writeln('Количество цифр равно ',k,', сумма цифр равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число: 157832
Количество цифр равно 6, сумма цифр равна 26
Взять 2 миски-взять мешок с зерном-взять зёрнышко-цветное?-да-в серую коробку
|
нет
|
в белую коробку
робот берёт фасолину-цветная?-нет-в белую
|
да
|
в в серую коробку
допустим робот ложит всё внутреннее мешка на стол и когда щупает что ничего на столе нет останавливается!
Ответ:
Миша. Белый гриб, который они нашли у озера.
Объяснение:
Миша. Одно истинное -это означает что первое уже верно, а второе ложное( то есть все последние два варианта Валеры и Игната уже не верны)
#include <stdio.h>
int main()
{
int x,i,n,k=0,ch[100]={0};
printf("n=");
scanf("%d",&n);
printf("%d\n",0);
for(i=1;i<=n;i++)
{
x=i;
while(x!=0)
{
ch[k]=x%3;
x=x/3;
k++;
}
for(x=k-1;x>=0;x--)
{
printf("%d",ch[x]);
ch[x]=0;
}
printf("\n");
k=0;
}
return 0;
}
var n,k,v,min,max,s: integer;
begin
readln(n);
k:=1;
read(v);
min:=v;
max:=v;
s:=v;
while k<n do
begin
k:=k+1;
read(v);
s:=s+v;
if v<min then min:=v;
if v>max then max:=v;
end;
writeln('min = ',min,' max = ',max,' sr = ',s/n:4:2);
end.
Пример:
5
85 62 105 74 90
min = 62 max = 105 sr = 83.20