Вывести старые и новые цены.

15.01.2010, 16:27. **Показов** 2908. **Ответов** 3

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

Народ решите задачу пожалуйста очень надо.
Условия:
Цены на два вида товара выросли на p процентов.Вывести старые и новые цены.

@vad2211 · 15.01.2010, 16:41

Pascal

uses crt;
var
   a,b:real;
   proc:byte;
begin
clrscr;
write('Товар №1 стоит (руб): ');
readln(a);
write('Товар №2 стоит (руб): ');
readln(b);
write('Na %: ');
readln(proc);
Writeln('Старая цена товара №1 (руб): ',a);
writeln('Старая цена товара №2 (руб): ',b);
writeln('Новая цена товара №1 (руб): ',a+(a/100*proc));
writeln('Новая цена товара №2 (руб): ',b+(b/100*proc));
readln;
end.

@Inadequate · 15.01.2010, 16:43

Pascal

var
  x,p:real;
begin
  readln(x,p);
  writeln('Old: ',x,' New: ',x+x/100*p)
end.

15.01.2010, 17:48

vad2211, Спасибо большое!

Dima Deineka
		1
	Вывести старые и новые цены. 15.01.2010, 16:27. Показов 2908. Ответов 3 Метки нет (Все метки) Народ решите задачу пожалуйста очень надо. Условия: Цены на два вида товара выросли на p процентов.Вывести старые и новые цены.

Dima Deineka
	15.01.2010, 17:48	4
	vad2211, Спасибо большое!

Опции темы