Определить, сколько тонн груза доставлено на каждый склад в отдельности

@Катя1993 · Регистрация: 21.01.2011

Студворк — интернет-сервис помощи студентам

прошу помощи!!! Задачу решить линейным способом!!!!

Линейные алгоритмы
На три склада доставлен груз. На первый и второй склады доставлено 400 т, на второй и третий – 300 т, а на первый и третий – 440 т. Сколько тонн груза доставлено на каждый склад в отдельности?

НАРАБОТКА:

Pascal

Program p1;
Uses crt;
Var   a,b,c,t,e,g:integer;
Begin
Write ('Perv6i cklad dostavleno gruza='); readln (a);
Write ('Vtoroi cklad dostavleno gruza='); readln (b);
Write ('Tretii cklad dostavleno gruza='); readln (c);
t:=a+c;
e:=a+b;
g:=b+c;
Writeln ('Perv6i sklad=',t);
Writeln ('Vtoroi sklad=',e);
Writeln ('Tretii sklad=',g);
readkey;
end.

@marshal · 22.01.2011, 18:09

Но вообще-то t e g даны - 400, 300, 440, надо найти как я понял a,b,c, а не выводить их, или нет?

@Катя1993 · 22.01.2011, 18:21 **[ТС]**

да да

@Puporev · 22.01.2011, 18:27

Pascal

uses crt;
var x1,x2,x3,s:integer;
begin
clrscr;
s:=(400+300+440)div 2;
x1:=s-300;
x2:=s-440;
x3:=s-400;
write('Склад 1=',x1,' склад 2=',x2,' склад 3=',x3);
readln
end.

@marshal Robin Bad на форуме 237 / 237 / 194 Регистрация: 14.12.2010 Сообщений: 513
	22.01.2011, 18:09	2
	Но вообще-то t e g даны - 400, 300, 440, надо найти как я понял a,b,c, а не выводить их, или нет? 0

@Катя1993 0 / 0 / 0 Регистрация: 21.01.2011 Сообщений: 12
	22.01.2011, 18:21 [ТС]	3
	да да 0

	22.01.2011, 18:27

Опции темы

Определить, сколько тонн груза доставлено на каждый склад в отдельности

Решение