Выполнить в паскале: имеется офис в форме прямоугольного параллелепипеда со сторонами a,b,c ( c-высота ). необходимо покрасить все стены в офисе, при этом известно, что одно банки краски хватает на 8 м^2. сколько нужно купить банок краски?

111

428

Посмотреть ответы 2

Ответы на вопрос:

tarringate

Информатика

4,4(40 оценок)

Program test; var a, b, c, s, k: byte; begin readln(a, b, c); s : = ((a * c) * 2) + ((b * c) * 2); k : = s div 8; if (k mod 10) > 0 then begin inc(k); writeln('потребуется купить ', k, ' банок краски'); end; if (k mod 10) < 0 then writeln('потребуется купить ', k, ' банок краски'); end.

sofya15081987

Информатика

4,7(83 оценок)

Var a: array[1..50] of integer; x,i: integer; begin writeln('количество элементов в массиве: '); readln(x); for i: =1 to x do begin readln(a[i]); end; for i: =1 to x do begin writeln(a[i]); end; end.