Необходимые: системный блок, монитор и устройства ввода (мышь и клавиатура), а все остальное - это дополнительные
Program fff;
var c: Char; n, u, sum: Integer; begin write('Кол-во цифр для ввода: '); readln(n); for u := 1 to n do begin readln(c); sum := sum + Ord(c)-48; end; writeln('Кол-во введёных цифр = ', n); writeln('Сумма введёных цифр = ', sum);end.
<span> Задача 5. “Кузнечик”
В одной стране жил-был волшебный кузнечик, умеющий прыгать на любое расстояние. А ко-
гда он изучил тему «числовые последовательности», то решил прыгать по дороге с нумерованны-
ми клетками по придуманному им правилу: 1 2 4 7 11 16 22 29 и так далее, дальше продолжи-
те сами. А другой кузнечик решил подкараулить его в какой-нибудь клетке N, чтобы не дать уска-
кать в бесконечность. Помогите ему, предложите алгоритм, проверяющий, попадет ли первый
кузнечик в клетку N?
Решение: Можно догадаться, что каждое n-ное число bn = bn-1 + n – 1, где b1 = 1. Можно также
догадаться, что каждое число нашей прогрессии bn = 1 + 1 + 2 + 3 + … + n – 1 = 1 + Sn , где Sn – это
сумма арифметической прогрессии с a1=0 и d=1. И по формуле прогрессии получаем:
bn = 1 + n(n-1)/2. Остается проверить, равно ли введенное N какому-нибудь bn. Решаем уравнение:
N = 1 + n(n-1)/2, квадратное уравнение: n2 – n + 2 – 2N = 0, D = 1 – 4(2-2N) = 8N – 7,
n = (1+sqrt(8N-7))/2 – берем только положительный ответ. Получился алгоритм: Подставляем N в
формулу для n и если n – целое, то кузнечик попадет в клетку с номером N. Вопрос только, как
проверить, целое ли n. Для этого проверяем, достаточно ли мало отклонение его от его округле-
ния: если abs( n – round( n ) ) < 0,000000000000001, то n – скорее всего целое. По крайней мере с
точностью до 0,000000000000001.</span>
Мультимедийная презентация - это наглядная демонстрация информации с использованием ИКТ
Var
z,x1,x2,y1,y2:real;
begin
writeln('Введите x1 и y1');
readln(x1,y1);
writeln('Введите x2 и y2');
readln(x2,y2);
z:=sqrt(sqr(sqr(X1)-sqr(x2)))+(sqr(Sqr(y1)-sqr(y2)));
writeln(z);
<span>end.</span>