Блог для маленьких школьников и их родителей
ШколаЛа

Паскаль абс Даю 50 баллов

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Паскаль абс

Даю 50 баллов

Ответов к вопросу: 1
  • pomoguteplsssssss
    09.10.2024 | 19:33

    1)  var  
    num,one,two,three: integer;

    begin  
     write(‘Введите трёхзначное число: ‘);

     readln(num);

     one := num div 100;

     two:= (num div 10) mod 10;

     three:= num mod 10;

     writeln(‘Произведение цифр трёхзначного числа: ‘, one*two*three);

    end.

    2) var  
    num: integer;

    begin  
     write(‘Введите число: ‘);

     readln(num);

     if (num mod 2 = 0) and (num < 100) then

     writeln(‘Число является чётным и двузначным ‘)

     else  
       writeln(‘Число не является чётным и двузначным ‘);

    end.

    3) var  
    num,max: integer;

    begin  
     num:=1;

     max:=0;

     while num <> 0 do

       begin

     write(‘Введите число: ‘);

     readln(num);

     if num > max then

       max:=num;

     end;

     writeln(‘Максимальное из введённых чисел: ‘, max);

    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.