Поделитесь своими знаниями, ответьте на вопрос:
Фірма випускає стільці двох видів: а і б . для випуску одного стільця виду а потрібно 2 м дощок, 0, 5 м2 тканини і 2 людино-години . для випуску одного стільця виду б — 4 м дощок, 0, 25 м2 тканини і 2, 5 людино-години . за 1 тиж- день фірма може використати не більше ніж 440 м дощок, 65 м2 тканини і 320 людино-годин . фірма продає один стілець виду а за 80 грн, а один сті- лець виду б — за 120 грн . скільки стільців кожного виду має випустити за тиждень фірма, щоб вкластися в допустимі ресурси й отримати найбільший прибуток?
var a,b,c,s:integer;
begin
write('введите кол-во чисел в последовательности:');
readln(a);
for c:=1 to a do
begin
write('введите число:');
readln(b);
if (b mod 10=3) then
s:=s+b;
write(b,' ');
end;
writeln('сумма чисел, оканчивающихся на 3=',s);
end.
с клавиатуры вводится кол-во чисел в последовательности и каждое число послед-ти на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3
program B;
var a,b,s:integer;
begin
write('введите кол-во чисел в последовательности:');
readln(a);
for c:=1 to a do
b:=random(300)+1;
if (b mod 10=3) then
s:=s+b;
write(b,' ');
end;
writeln('сумма чисел, оканчивающихся на 3=',s);
end.
с клавиатуры вводится только кол-во чисел в последовательности а каждое число послед-ти вводится само рандомно. на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3