Var
n,k:integer;
Begin
Write('Введите n и k: ');
Readln(n,k);
if n = k then write(n) else
if n>k then write('N - max') else write('K - max');
End.
Ряд 2,4,6,8... является арифметической прогрессией с разностью d=2, и первым членом a1=2
формула суммы первых n членов:
в данной задаче:
поэтому при составлении программы можно обойтись без циклов
программа:
Program n1;
var n: integer;
begin
readln(n);
write(n*n+n);
end.
58 задание.
первая таблица
0 1 1 1 1
0 1 1 0 1
0 1 0 1 1
1 0 0 0 0
вторая таблица
0. 1. 1. 1. 1
1. 0. 1. 0. 0
1. 0. 0. 1. 0
1. 0. 0. 0. 0
==== PascalABC.NET =====
begin
var (x1, y1) := ReadReal2('Координаты х и у вершины 1:');
var (x2, y2) := ReadReal2('Координаты х и у вершины 2:');
var (x3, y3) := ReadReal2('Координаты х и у вершины 3:');
Print('Площадь треугольника равна',
0.5 * ((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)))
end.
Решение задачи ещё актуально? Лично я сейчас тестирую загрузку текстовых данных отличных от картинок )). Если листинг программы загрузится, чудесно, ознакамливайтесь кому интересно.
В оригинале файл называется script.php.txt, кодировка файла UTF-8, язык программирования PHP.
Из работы оценочного алгоритма можно увидеть почему последовательности на основе GGB самые эффективные, а остальные являются лишь инверсиями, смещениями или объединениями того и другого.
