Задать вопрос
6 июня, 13:32

Данны сторны прямоугольника найти его периметр

пример как делать

дано время в чесах и в минутах выразить его в минутах

var C, A, B:inter;

begin

writeln ('Введите время в часах и в минутах') ;

readln;

C:=A*60+B;

writeln (' время в минутах') ;

readln;

end.

+2
Ответы (1)
  1. 6 июня, 17:05
    0
    Var a, b, p:integer;

    begin

    writeln ('Введите стороны прямоугольника:') ;

    readln (a, b) ;

    p:=2 * (a+b) ;

    writeln ('Периметр прямоугольника = ', p) ;

    readln;

    end.

    Пример:

    Введите стороны прямоугольника:

    3 5

    Периметр прямоугольника = 16
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Данны сторны прямоугольника найти его периметр пример как делать дано время в чесах и в минутах выразить его в минутах var C, A, B:inter; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)
Program a2; var n, i, min, max, x:integer; begin Writeln ('Введите колицество человек в классе:') ; Readln (n) ; Writeln ('Введите рост 1 ученика:') ; readln (x) ; min:=x; max:=x; for i:=2 to n do begin Writeln ('Введите рост ', i,' ученика:') ;
Ответы (1)
Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0, S:String; C:char; begin Writeln ('Введите строкy S') ; readln (S) ; Writeln ('Введите строкy S0') ; readln (S0) ; Writeln ('Введите символ C') ; readln (C) ;
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)