Var a,b,k:integer;
begin
read(a,b); k:=a-1;
if a>b then do
while k<>b do begin
write(k); k:=k-1;
end;
end.
Правильный ответ:
Нилюфар-Белое платье и туфли
Роза-зелёное платье, синие туфли
<span>Наташа- синие зелёное платье, синие туфли. </span>
30-е года XX года - создан первый Телевизор
1969 году - в США заработала первая в мире компьютерная сеть
1876 - В Америке изобретён телефон
1895 - Попов открыл радио связь
40-е года XIX века -в России построена первая телеграфная сеть
#include <iostream>
using namespace std;
int main()
{
double a, b, c;
cin >> a >> b >> c;
if ((a+b > c) && (a+c > b) && (b+c > a))
{
if (a == b)
if (a == c) cout << "Треугольник равносторонний";
else cout << "Треугольник равнобедренный";
else if ((a == c) || (b == c )) cout << "Треугольник равнобедренный";
else cout << "Треугольник разностронний";
}
else cout << "Невозможно построить треугольник";
return 0;
}
Var i,b,c:integer;
a:array[1..100] of integer;
Begin
Read(b);
I:=1;
While b<>0 do
Begin
A[i]:=b;
I:=i+1;
Read(b);
End;
C:=i-1;
D:=0;
B:=0;
For i:=1 to c do
If a[i]>99
Then begin b:=b+a[i]; d:=d+1; end;
If b=0
Then writeln('NO')
Else writeln(b/d);
End.