Var a,b,c:integer; x:char;
begin
repeat
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if (a+b>c)and(a+c>b)and(b+c>a)
then writeln('Стороны могут образовать треугольник')
else writeln('Стороны не могут образовать треугольник');
writeln('Желаете повторить? (Y/N)');
readln(x);
until x='N';
end.

Пример:
a = 3
b = 5
c = 4
Стороны могут образовать треугольник
Желаете повторить? (Y/N)
Y
a = 8
b = 1
c = 5
Стороны не могут образовать треугольник
Желаете повторить? (Y/N)
N

0 0

3 года назад

Решить все надо, решение надо расписывать, даю 90 баллов

Карпухина Полина ... [26]

1)Т.к 1 мб=8000000 битов, тогда 8000000*136=1088000000 битов.

2)Т.к 1 тб=1000000000 КБ, тогда 1000000000*2=2000000000 кб.

3),4) немного не поняла, напиши я дорешаю.

5)Дано : | Решение.

V=12 кбит/с. | 1)Переведем 6 минут в сек. :

t=6 мин. | 6*60=360(сек)

_________ | 2)12*360=4320(кб).

S=?

Ответ :4320 килобайт.

Подробнее - на Znanija.com - znanija.com/task/30179393#readmore

0 0

2 года назад

Прочитать ещё 2 ответа

Что будет выведено на экран в результате выполнения фрагмента алгоритма: X1:=3; X2:=5; readln(X1,X2); writeln(X2+X1);

Strannik1987

Программа запросит ввод значений Х1 и Х2 (третья строка). После того, как пользователь введёт эти значения, на экран будет выведена их сумма.

Например, если пользователь введёт числа 12 и 15, то на экран будет выведено: "27"

0 0

4 года назад