Начали писать программы в паскаль, и надо как то оформить : поклейка прямоугольной стены. длина стены - a. высота - b. рулоны 12 (длина) на 1(ширина) цена 1 рул. - k рул. нужно узнать на всю стену - ?
Procedure swap(var a, b: real); var t: real; begin t := a; a := b; b := t; end;
var a, b, c: real; begin readln(a, b, c); if (a > b) then swap(a, b); if (b > c) then swap(b, c); if (a > b) then swap(a, b); writeln(a, ' ', b, ' ', c); end.
Без процедур:
var a, b, c, t: integer; begin readln(a, b, c); if (a > b) then begin t := a; a := b; b := t; end; if (b > c) then begin t := b; b := c; c := t; end; if (a > b) then begin t := a; a := b; b := t; end; writeln(a, ' ', b, ' ', c); end.
Const n=3; var a: array[1..n] of integer; i, j, k: integer; begin randomize; write ('Исходный массив: '); for i := 1 to n do begin a[i] := random(256); write (a[i]:4); end; writeln; writeln; for i := 1 to n-1 do for j := 1 to n-i do if a[j] > a[j+1] then begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end; write ('массив по возрастанию: '); for i := 1 to n do write(а[i]:4); writeln; readln; end.
var a,b,k,i:integer;
begin
readln(a,b,k);
if a/12>b then i:=(a div 12)+1 else i:=b;
writeln('Cena - ',k*i);
end.