Дано целое число. Если оно является положительным, то прибавить к нему 11; в противном случае вычесть - id1796027420200713 от mukaseevdaniil1 13.07.2020 17:02

Question

Информатика: Дано целое число. Если оно является положительным, то прибавить к нему 11; в противном случае вычесть из него 2​

mukaseevdaniil1 · Accepted Answer

Program oboiilinoleum;

var a, b, h, wa, wb, o, l, co, cl:integer;

begin
     write('Введите длину комнаты');
     readln(a);

     write('Введите ширину комнаты');
     readln(b);

     write('Введите высоту комнаты');
     readln(h);

     write('Введите стоимость одного рулона обоев');
     readln(o);

     write('Введите стоимость одного рулона линолеума');
     readln(l);

     co:=(2*(a*h + b*h) - 6 - 3)/10;
     cl:=trunc(a*b/1.5);

     writeln('Количество рулонов, необходимое для поклейки стен комнаты: ', co);
     writeln('Для покрытия пола линолеумом необходимо ', cl, ' метров линолеума');
     writeln('За линолеум нужно заплатить ', cl*l, ', а за обои - ', co*o);
end.

Дано целое число. Если оно является положительным, то прибавить к нему 11; в противном случае вычесть из него 2​

MOGZ ответил

Дано целое число. Если оно является положительным, то прибавить к нему 11; в противном случае вычесть из него 2