Написать программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 г до 1 кг с шагом 100

16.04.2013, 10:08. **Показов** 8917. **Ответов** 1

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

Решить задачу используя цикл с предусловием и постусловием.
сама задача:
Написать программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 г до 1 кг с шагом 100.

Помогите пожалуйста, с ума схожу...

@Chertenok_n_13 · 17.04.2013, 00:47

с постусловием

Pascal

var c:integer;
n:real;
begin
writeln('Введите цену за кг.');
readln (n);
c:=100;
repeat
writeln(c,' г стоит ', n/1000*c, ' руб.');
c:=c+100;
until c>1000;
readln;
end.

с предусловием

Pascal

var c:integer;
n:real;
 
begin
writeln('Введите цену за кг.');
readln (n);
c:=100;
while c<1000 do begin
writeln(c,' г стоит ', n/1000*c, ' руб.');
c:=c+100;
end;
readln;
end.

Last1220
		1
	Написать программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 г до 1 кг с шагом 100 16.04.2013, 10:08. Показов 8917. Ответов 1 Метки нет (Все метки) Решить задачу используя цикл с предусловием и постусловием. сама задача: Написать программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 г до 1 кг с шагом 100. Помогите пожалуйста, с ума схожу...

	17.04.2013, 00:47

Опции темы

Написать программу, которая выводит на экран таблицу стоимости яблок в диапазоне от 100 г до 1 кг с шагом 100

Решение