2) program treugolnik;var a,b,c:real;beginwriteln('Введите стороны:');write('a = ');readln(a);write('b = ');readln(b);write('c = ');readln(c);if a+b<=c then writeln('Треугольника нет') else if b+c<=a then writeln ('Треугольника нет') else if c+a<=b then writeln ('Треугольника нет') else writeln('Треугольник есть')
end.
1)
var
a:array [1..4] of char; i:integer;
begin
for i:=1 to 4 do
begin
read(a[i]);
end;
for i:=4 downto 1 do
begin
write(a[i]);
end;
<span>end.</span>
Привет, как настроение? Меня зовут Алина, мне 18 лет. Хочу познакомиться с хорошим парнем..
Если тебе это интересно, напиши мне тут - http://onetimesex.com
Мой ник - KissKa
Смотрю фильмы, узнаю погоду, читаю книги, общаюсь на форумах
' код на VBScript 5
Sub Zadanie2110767(a,b)
MsgBox "среднее арифметическое кубов = " & 0.5*(a^3+b^3)
MsgBox "среднее геометрическое модулей = " & sqr(abs(a*b))
End Sub