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 рабочих дней
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadReal2('Введите через пробел a,b:');
Writeln(a,' + ',b,' = ',a+b);
Writeln(a,' - ',b,' = ',a-b);
Writeln(a,' * ',b,' = ',a*b);
end.
Пример
Введите через пробел a,b: -3.6 2.15
-3.6 + 2.15 = -1.45
-3.6 - 2.15 = -5.75
-3.6 * 2.15 = -7.74
begin
var n:=ReadInteger('n=');
var a:=ReadReal('a=');
var p:=1/a;
var s:=p;
for var i:=1 to n do begin p/=(a+i); s+=p end;
Writeln(s)
end.
Пример
n= 6
a= 2.4
0.57315329840095
begin
var n:=ReadInteger('n=');
var s:=ReadSeqReal('Введите '+n+' чисел:',n).Select(x->Abs(x)).Sum;
Writeln('Сумма модулей равна ',s)
end.
Пример
n= 6
Введите 6 чисел: -4.35 2.63 11 -8.1 0 -6.4
Сумма модулей равна 32.48