Задать вопрос Регистрация
Помочь другим

  • ПОМОГИТЕ СОСТАВИТЬ ПРРОГРАММЫ ДЛЯ ПАСКАЛЬ ABC!!! 1) Ввести с помощью read(); трехзначное число N. В нем зачеркули 1-ю слева цифру и приписали ее в конце числа. После этого число умножили на 10. Вывести полученное число  2) Ввести с помощью read(); числа A — сторона квадрата, R - радиус окружности (тип real). Выяснить, площадь какой фигуры больше: квадрата или круга. 

Ответы 2

  • Program Zadacha;var    N: integer;    M: integer;Begin    Read(N);        M := N div 100;    M := M + ((N mod 100) div 10)*10;    M := M + (N mod 10)*100;        WriteLn(M);            ReadLn;    ReadLn;End.

  • 1)

    var n:integer;

    begin

       read(n);

       n := 100*(n-100*(n div 100)) + 10*(n div 100);

       write(n)

    end.

    2)

    var a,r:real;

    begin

       readln(a,r);

       if(a*a>3.1415927*r*r) then

          writeln('Square!')

       else if(a*a<3.1415927*r*r) then

          writeln('Circle!')

       else

          writeln('Equal!')

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years