Таблица стоимости телефонных переговоров

18.05.2013, 11:19. **Показов** 2235. **Ответов** 1

Написать программу, которая выводит на экран таблицу стоимости телефонных переговоров от 1 мин до 10 мин с шагом в одну мин. Изначальную стоимость минуты выбрать самостоятельно (используя цикл с постусловием)

@Puporev · 18.05.2013, 11:27

Pascal

uses crt;
var s,i:integer;
begin
clrscr;
write('Введите стоимость 1 минуты s=');
readln(s);
i:=1;
repeat
writeln(i:2,' ',i*s);
i:=i+1
until i>10;
readln
end.

Anastasiya18
		1
	Таблица стоимости телефонных переговоров 18.05.2013, 11:19. Показов 2235. Ответов 1 Метки нет (Все метки) Написать программу, которая выводит на экран таблицу стоимости телефонных переговоров от 1 мин до 10 мин с шагом в одну мин. Изначальную стоимость минуты выбрать самостоятельно (используя цикл с постусловием)

Опции темы

Таблица стоимости телефонных переговоров

Решение