Напишите программу, которая запрашивает у пользователя число, но не больше пятизначного, и выдаёт на экран сообщение о том, сколько цифр в данном числе. 0

Vari,a,k,m: integer;                     begin                                repeat                                          writeln(' введите число');                                               readln(a);   k: =0;                                                   while a> 0 do                                                            begin                                                                        m: =a mod 10;                                                                       k: =k+1;                                                                       a: =a div 10;                                                             end;                                             until k< =5;                           writeln(k); end.

а) наименование товаров, цена за единицу товара, количество каждого товара

б) общая сумма покупки, сумма денег переданная продавцу

в) программа телепередач, название фильма

г) набор значений углов и сторон треугольника, должна быть известна хотя бы одна сторона треугольника и еще две величины(углы или стороны)

9 кбатй = 73728 бит

73728/1536=48сек

1024*48=49152бит=6164 байт ( 1 байт = 8 бит)