1) 2*4=8
2)8-3=5
3)5*4=20
4)20-3=17
5)17-3=14
Ответ: 12122
Элт. монитор
Электронно-лучевые приборы — класс электровакуумных электронных приборов, предназначенных для преобразований информации, представленной в форме электрических или световых сигналов. В приборах используются сфокусированные потоки электронов, управляемые по интенсивности и положению в пространстве.
Var
x, a, t, y: real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
Write('Введите значение коэффициента a: ');
Readln(a);
{боремся с неположительным значением под знаком корня}
t := a - cos(x);
if t < 0 then y := exp(x + 1.8) - exp(1 / 5 * ln(-t))
else if t = 0 then y := exp(x + 1.8)
else y := exp(x + 1.8) + exp(1 / 5 * ln(t));
Writeln('Значение функции равно ', y)
end.
Тестовое решение:
Введите значение аргумента x: -4.2
Введите значение коэффициента a: 1.95
Значение функции равно 1.28604638457326
Var a: string;
begin
write ('Введите слово: '); read (a);
writeln ('Именительный падеж: ',copy(a,1,length(a)));
writeln ('Родительный падеж: ',copy(a,1,length(a)-1),'ы');
writeln ('Дательный падеж: ',copy(a,1,length(a)-1),'е');
writeln ('Винительный падеж: ',copy(a,1,length(a)-1),'у');
writeln ('Творительный падеж: ',copy(a,1,length(a)-1),'ой');
writeln ('Предложный падеж: ',copy(a,1,length(a)-1),'е');
end.
Основной момент, это удаление окончания путем копирования слова в строке a начиная с первого символа, до длины слова минус 1 символ.
Саму прогу засунунул в файл (тут пробелы иначе убираются), превью в картинке