Практикум по решению задач на ЭВМ. Тарова И.Н - 25 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Практикум по решению задач на ЭВМ
end.
4) Дано натуральное число (n > 0). Определить число сотен в выражении.
{Определение количества сотен в числе}
program sotni(input,output);
uses CRT; {работа с экраном и клавиатурой}
label 2;
var r,n:integer;
begin
clrscr; {очистка экрана}
2:
writeln('введите число а (а больше 100)');
read(n);
if n>99 then
begin
r:=n div 100;
writeln (r);
end
else
begin
writeln ('Введите другое число');
goto 2;
end
end.
5) Дано натуральное число n (n <= 100)
a) сколько цифр в
числе
25
                    Практикум по решению задач на ЭВМ


  end.




4) Дано натуральное число (n > 0). Определить число сотен в выражении.

  {Определение количества сотен в числе}
  program sotni(input,output);
  uses CRT; {работа с экраном и клавиатурой}
  label 2;
  var r,n:integer;
  begin
     clrscr; {очистка экрана}
     2:
     writeln('введите число а (а больше 100)');
     read(n);
     if n>99 then
        begin
           r:=n div 100;
           writeln (r);
        end
     else
        begin
           writeln ('Введите другое число');
           goto 2;
        end
  end.




  5) Дано натуральное число n (n <= 100)
  a) сколько цифр в числе


                                    25

Страницы