Компьютеры подразделяются на ЭВМ компьютеры суперкомпьютеры ноутбуки нетбуки
ЭВМ-электронная вычислительная машина
Компьютеры-обычные компьютеры
Суперкомпьютеры-превосходящие по всем данным обычные компьютеры
Ноутбуки-компьютер меньшего размера
Нетбуки-ноутбуки меньшего размера уступающие им по данным
Var A,k:integer;
Begin
k:=0;
Read(A);
While A <> 0 do
Begin
Read(A);
k:=k+1;
End;
Write(k)
<span>End. </span>
1. 30
2. 2
3.
Ан Бор Дав Григ Ольг Мар Свет Ек
Н + - - - - - - +
М - - - + - + - -
Р - - + - - - + -
П - + - - + - - -
-----------------------------------------------------
Антон и Екатерина в Норильске
Григорий и Мария в Москве
Давид и Светлана в Ростове
Борис и Ольга в Пятигорске
Program Zilly;
uses crt;
const n=10;
var
a,b,c:real;
tup,pryam:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
tup:=0;
pryam:=0;
writeln('Введите стороны треугольника');
write('А = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
a:=a*a;
b:=b*b;
c:=c*c;
if a=b+c then pryam:=1;
if b=a+c then pryam:=1;
if c=a+b then pryam:=1;
if a>b+c then tup:=1;
if b>a+c then tup:=1;
if c>a+b then tup:=1;
if tup=1 then writeln('Треугольник тупоугольный')
else
if pryam=1 then writeln('Треугольник прямоугольный')
else writeln('Треугольник остроугольный');
end.
Одна яхта должна отплыть назад ,после чего вторая пройдёт через устье
