Задача

Дана таблица а[1..n], состоящая из нулей и единиц. Проверить существует ли строгое чередование.


Решение

Для решения задачи, необходимо в цикле пройтись по всему массиву, проверяя текущий и следующий за ним элементы на чередование. Текущий элемент(a[i]) может быть...

Подробнее...

 
Задача

Составить программу для определения лежит ли точка (x3; y3), на прямой проходящей через точки (x1; y1), C(x2; y2).


Решение

***
Программа
?01 Uses Crt;
02 Var x1,x2,x3,y1,y2,y3 : real;
03 Begin
04 ClrScr;
05 Write('x1=');
06 Readln(x1);
07 Write('y1=');
08 Readln(y1);
09 Write('x2=');
10 Readln(x2);
11 Write('y2=');
12 Readln(y2);
13...

Подробнее...

 
Задача

Даны координаты вершин треугольника ABC A(x1;y1), B(x2;y2), C(x3;y3) яв-ся ли треугольник равнобедренным.


Решение

***
Программа 
?01 Uses Crt;
02 Var x1,x2,x3,y1,y2,y3,a,b,c : real;
03 Begin
04 ClrScr;
05 write('x1=');
06 Readln(x1);
07 write('y1=');
08 Readln(y1);
09 write('x2=');
10 Readln(x2);
11 write('y2=');
12 Readln(y2);
13 Write('x3=');
14...

Подробнее...

 
Задача

Написать программу подсчета количества часов, минут и секунд в данном числе суток.


Решение

Для начала необходимо считать введенное число (переменная day). Затем полученное число умножить на количество часов в одних сутка (24*day). Полученную велечину умножить на...

Подробнее...

 
Еще статьи...