Определить можно ли купить 3 товара на некую сумму денег.(Входные данные:цены товаров-С1,С2,С3 и сумма денег-S)Паскаль.
Answers & Comments
Shiniiku
Var c1,c2,c3,s:integer; ну или другой тип, если не целые числа begin writeln("Введите цену 1го товара "); readln(c1); writeln("Введите цену 2го товара "); readln(c2); writeln("Введите цену 3го товара "); readln(c3); writeln("Введите сумму"); readln(s); if (c1+c2+c3<=s) then writeln("Денег хватает") else writeln ("Денег не хватает"); end.
Answers & Comments
begin
writeln("Введите цену 1го товара "); readln(c1);
writeln("Введите цену 2го товара "); readln(c2);
writeln("Введите цену 3го товара "); readln(c3);
writeln("Введите сумму"); readln(s);
if (c1+c2+c3<=s) then writeln("Денег хватает") else writeln ("Денег не хватает");
end.