Задать вопрос
18 ноября, 21:42

Расположите в правильном порядке строки программы, вычисляющей периметр и площадь параллелограмма:

1) S:=a*h; 6) var a, b, h, p, s: integer;

2) end. 7) readln;

3) program pr; 8) Writeln ('p=', p,' s=', s) ;

4) p:=2 * (a+b) ; 9) a:=6; b:=3; h:=4;

5) Uses crt; 10) clrscr;

11) begin

+4
Ответы (1)
  1. 18 ноября, 21:54
    0
    Program pr;

    uses crt;

    var

    h, a, b, g, p, s:integer;

    begin

    clrscr;

    a:=6; b:=3; h:=4;

    p:=2 * (a+b) ;

    s:=a*h;

    writeln ('p=', p,' s=', s) ;

    readln;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Расположите в правильном порядке строки программы, вычисляющей периметр и площадь параллелограмма: 1) S:=a*h; 6) var a, b, h, p, s: ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)
надо решать через Паскаль. составил две программы и обе со странным ответом. что не то? program qwe; uses crt; var x. s:integer; y:real; begin s:=0; for i: = - 2 to 27 do s:=s+x; y:=s/30 writeln ('srednee arifmeticheskoe=', y) ; readkey; end.
Ответы (1)
Как их сделать вместе чтобы работало Uses crt; var a, i:byte; s:real; begin clrscr; for i:=1 to 4 do begin writeln ('vvod') ; readln (a) ; if a mod 5=0 then writeln ('Число ', a,' кратно 5 ') else writeln ('Число ', a,' не кратно 5') end; end.
Ответы (1)
Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;
Ответы (1)
Помогите найти ошибку в программе (Массив) Program Ah; uses crt; var A:array[1 ... 15] of integer; i, k, n:integer; begin clrscr; for i:=1 to 18 do begin writeln ('A[', i,']=') ; read (A[i]) ; end; writeln ('Введите число') ; read (n) ; k:=0;
Ответы (1)