Предмет: Информатика,
автор: egorarkhipov
Имеется кусок ткани длиной M метров. От него последовательно отрезаются куски разной длины. Все данные заносятся на компьютер. Компьютер должен выдать сообщение о том что материала не хватает, если будет затребован кусок ткани, большей длины чем имеется.
НА ПАСКАЛЕ, ПОДАЛУЙСТА
Ответы
Автор ответа:
0
var m,b,c,i:integer;
begin
readln (m);
readln (b); // Сколько будет кусков
for i:=1 to b do
begin
readln(c);
m:=m-c;
end;
If m<0 then writeln('Ткани не хватит');
end.
begin
readln (m);
readln (b); // Сколько будет кусков
for i:=1 to b do
begin
readln(c);
m:=m-c;
end;
If m<0 then writeln('Ткани не хватит');
end.
Похожие вопросы
Предмет: Физика,
автор: Ruslanushca
Предмет: Английский язык,
автор: lolita7617
Предмет: Қазақ тiлi,
автор: jasik170109
Предмет: Математика,
автор: Aliyana1