STE@K, из разных цифр- это как?

Чтобы цифры в числах не повторялись, например, 122, 959,. не пойдет

STE@K, for i:= 1 to 9 do for j := 0 to 9 do for k := 0 to 9 do if (i<>j) and (j<>k) and (i<>k) then write(i,j,k," ");

foont, красавчег! Спасибо большое!

Парни кто может помоч с написанием задач в паскале за 10кл. мне к завтра надо. Пожалуста

.3pf., так пиши, посмотри, чего там у тебя

1. написать программу вычисления площади треугольника, если известны длины двух сторон и величина угла между ними. 2.написать прогу вычисления сопративления электрической цепи, состоящей из трех последовательных сопротивлений. 3. написать прогу опредиления стоимости разговора по телефону с учетом скидки 5% предоставляемой по суботам и воскресеньям(день недели 1-понедельник,....7-воскресенье)

.3pf., 1)s:=absin(alfa)/2; 2)r:=r1+r2+r3;

foont, это правильно

3)program Project2; var dn:byte; pay_min,min,sum:real; begin writeln("Vvedite stoimost odnoi minuti"); readln(pay_min); writeln("Vremya ragovora (v minutax)"); readln(min); sum:=pay_minmin; writeln("Vvedite den nedeli ot 1 do 7"); readln(dn); if (dn=6) or (dn=7) then sum:=sum0.95; writeln("Obwaya stoimost:",sum:5:2); readln end.

foont, чета я третью не понял

.3pf., вводим стоимость одной минуты, количество минут, потом день недели, и если суббота или воскресенье, то уменьшаем сумму на 5 процентов