Question

Известна стоимость монитора, системного блока, клавиатуры и мыши. Сколько будут стоить n компьютеров. Написать программу в Poscal ABC

Answer 1

Простая задача, держи:
var a,b,c,d,n,j:integer;
begin
writeln('Стоимость монитора');
readln(a);
writeln('Стоимость системного блока');
readln(b);
writeln('Стоимость клавиатуры');
readln(c);
writeln('Стоимость мышки');
readln(d);
writeln('Сколько компьютеров нужно?');
readln(n);
j:=(a+b+c+d)*n;
writeln('Стоимость ', n, ' компьютеров = ',j);
end.

Answer 2

var
m,s,c,k,n:integer;
begin
writeln('Стоимость монитора:');
readln(m);
writeln('Стоимость системного блока: ');
readln(s);
writeln('Стоимость клавиатуры:');
readln(c);
writeln('Стоимость мыши:');
readln(k);
writeln('Кол-во компьютеров');
readln(n);
writeln('Цена покупки: ',(m+s+c+k)*n);
end.