Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

Срочно срочно срочно !!!

10-11 класс

Написать программу которая посчитает кол-во цифр m,n,p 3 разных чисел (Паскаль ,процедура )

Anton199910 28 авг. 2015 г., 21:09:41 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Firsovairina51
28 авг. 2015 г., 23:59:36 (8 лет назад)

var m,n,p,x,y,z:real;
begin
Read(m);
Read(n);
Read(p);
   while m > 0 do
    begin
       m:= m mod 10;
       x:= x+1;
    end
  while n > 0 do
     begin
        n:= n mod 10;
        y:= y+1;
     end  
  while p > 0 do
    begin
       p:= p mod 10;
       z:= z+1;
    end 
end.

Должно работать

Ответить

Читайте также

Помогите срочно!!

Даю 20 баллов

помогите пожалуйста написать программу!!!СРОЧНО!!!

в одномерном массиве все отрицательные элементы заменить модулем, а положительные заменить числом 888



Вы находитесь на странице вопроса "Срочно срочно срочно !!!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.