ИНФОРМАТИКА СРОЧНО СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ И НАПИШИТЕ ПОЖАЛУЙСТА, ЧТО ОБОЗНАЧАЕТ...

Question

ИНФОРМАТИКА СРОЧНО СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ И НАПИШИТЕ ПОЖАЛУЙСТА, ЧТО ОБОЗНАЧАЕТ ПЕРЕМЕННЫЕ И m:=26*round(a*100/67); ВОТ ЭТУ СТРОКУ В ЧАСТНОСТИ В течение месяца бригада каждый следующий день работы выпускает на три изделия больше предыдущего. В первый день выпущено 42 изделия, что составило 67% дневной нормы. Выполнит ли бригада месячную норму? (Считать в месяце 26 рабочих дней)

Answer 1

Program zadacha;

var a1,a26, norm1,norm26,S, d: real;  

n:integer;

begin

a1:=42;

d:=3;

n:=26;

norm1:=round(a1*100/67);//найдем дневную норму и округлим ее

a26:= a1+d*(n-1);//бригада выполнит в 26-й день, 26-й член арифметической прогрессии, где разность=3

norm26:= norm1*n;//найдем норму за 26 рабочих дней

S:= (a1+a26)*26/2;//сумма 26-сти членов арифметической прогрессии, все изделия за 26 дней

//вывод на экран промежуточных вычислений не обязателен

writeln ('норма за один день = ',norm1);

writeln ('изделий в 26-й день = ',a26);

writeln ('норма за 26 дней = ',norm26);

writeln ('всего изделий за 26 дней = ',S);

if S >= norm26 then

writeln ('бригада выполнит месячную норму')

else

writeln ('бригада не выполнит месячную норму');

end.

//В вашем условии m - это норма за месяц, т.е. за 26 рабочих дней