Var
x,a,d,z:int64;
begin
read(x,a,d);
z:=14*sqr(sqr(x))-5*sqr(a)+11*d-17;
writeln(z);
end.
Var name, verb, abjective, noun, adverb: string;
begin
write('Введите ваше имя: ');
readln(name);
write('Хорошо, ', name, ', а теперь введите любое существительное: ');
readln(noun);
write('А теперь прилагательное: ');
readln(abjective);
write(name, ', введите наречие: ');
readln(adverb);
write('И последнее слово - глагол: ');
readln(verb);
writeln;
writeln(abjective, ' летом ', noun, ' ', adverb, ' ', verb, ' около речки.' );
<span>end.</span>
Если элемента массива равен полусумме соседних элементов, то вывести его:
Делаем трассировку
i = 2; M[i] = 1; (-2 + -1)/2 = -1,5 | -
i = 3; M[i] = -1; (1 + -2)/2 = -0,5 | -
i = 4; M[i] = -2; (-1 + -3)/2 = -2 | +
i = 5; M[i] = -3; (-2 + -2)/2 = -2 | -
i = 6; M[i] = -2; (-3 + 3)/2 = 0 | -
i = 7; M[i] = 3; (-2 + 8)/2 = 3 | +
Ответ: -2, 3
Предпоследний
И все..
Вроде!))
Я поняла так :
Кит
Кис
Кум
Куст
Киса
Кира
Кипеть
Кипарис
По возрастанию . (может и не правильно , я не уверена , но я поняла так)