Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]=st[2]) and (st[2]=st[3]) then write('треугольник равносторонний') else write('треугольник не равносторонний');
end.
1. Дан массив a, состоящий из 8 элементов. Получить массив b, в котором b[i] = a[i]*a[i] (1 <= i <=8).
var a,b:array[1..8] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 8 do
begin
a[i] := random(10);
write (a[i], ' ')
end;
writeln;
writeln('b:');
for i:=1 to 8 do
begin
b[i] := a[i]*a[i];
write (b[i], ' ')
end;
end.
Пример:
<span>a:
2 9 7 5 2 0 8 7
b:
4 81 49 25 4 0 64 49
2.
var a:array[1..9] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 9 do
begin
a[i] := random(50)+10;
write (a[i], ' ')
end;
writeln;
for i:=1 to 9 do
if a[i] mod 2 = 0
then writeln(a[i], ' - четное число')
else writeln(a[i], ' - нечетное число')
end.
Пример:
a:
55 51 18 35 33 56 15 56 47
55 - нечетное число
51 - нечетное число
18 - четное число
35 - нечетное число
33 - нечетное число
56 - четное число
15 - нечетное число
56 - четное число
47 - нечетное число </span>
Vitaly19991 пожалуйста выучи три команды из СКИ (системы команд исполнителя) "Стрелочка". Это будет быстрее чем задавать вопросы в И-нет:
ШАГ -перемещение на одно деление с рисованием линии;
ПРЫЖОК -перемещение на одно деление без рисования линии;
ПОВОРОТ -изменение направления движения на 90 гр. против часовой стрелки.
А пока держи алгоритмы (исходные данные то же, что и в предыдущих примерах:
Буква Ш:
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ПРЫЖОК ПОВОРОТ ШАГ ШАГКОН
Буква Ц
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ШАГ ШАГ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ШАГ ШАГ ПОВОРОТ ПОВОРОТ ПРЫЖОК ПРЫЖОК ПРЫЖОК ПОВОРОТ ШАГ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГКОН
Буква Ч
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ПОВОРОТ ПРЫЖОК ШАГКОН
Буква Б
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ПРЫЖОК ПОВОРОТ ПОВОРОТ ШАГ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ШАГКОН
Буква П
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ШАГ ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ШАГ ПОВОРОТ ПОВОРОТ ПОВОРОТ ПРЫЖОК ПОВОРОТ ПОВОРОТ ПОВОРОТ ШАГ ШАГКОН
Буква Е
АЛГОРИТМ ПУТЬ_0 Дано: Исполнитель в т.А Надо: Воспроизвести образецНАЧ ШАГ ПОВОРОТ ПОВОРОТ ПРЫЖОК ПОВОРОТ ШАГ ШАГ ПОВОРОТ ШАГ ПОВОРОТ ПРЫЖОК ПОВОРОТ ШАГКОН
На дискете обычно 1.4 Мб, на CD-диске - 700 Мб, на DVD - 4700 Мб.
Из второго можем сразу найти, что на флешке 2701.4 - 1.4 - 700 = 2000 Мб.
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Count(p -> p.IsEven).Print
end.