Практическая работа-информатика



Практическая работа (Гуреев Антон 9-А)

Задача: определить сумму и количество цифр числа.

начало

Дано: число

Найти: s, a.

Рrogram N8;

n

var s,a:real;

n:longint;

s:=0; a:=0

begin

Write (‘n = ‘);

s:=s+n mod 10; a:=a+1; n:=n div 10

Readln(n);

s := 0; a := 0;

Repeat

n=0

s:=s+n mod 10;

a:=a+1;

s,a

n:=n div 10;

Until n=0;

конец

Writeln ( ‘Summa cifr chisla’, s );

Writeln ( ‘Colichestvo cifr v chisle ‘, a );

end.




map