1)
begin
var (f, m) := readinteger2;
var s := 4 * sqr(f) - sqrt(25) + 12 * m;
write(s);
end.
2)
begin
var (z, h, n) := readinteger3;
var v := (2 * sqr(z) - 13) / (5 * h - 10) + abs(n - 25);
write(v);
writeln('Выполнил: ВАШЕ ФИО');
end.
Объяснение:
sqr(x) - возводит число х в квадрат;
sqrt(x) - вычисляет квадратный корень из числа x;
abs(x) - вычисляет модуль числа х.
1)
begin // Начало программы
var (f, m) := readinteger2; // Считываем с клавиатуры значения f и m
var s := 4 * sqr(f) - sqrt(25) + 12 * m; // Вычисляем выражение
write(s); // Выводим ответ
end. // Конец программы
2)
begin // Начало программы
var (z, h, n) := readinteger3; // Считываем с клавиатуры значения z, h и n.
var v := (2 * sqr(z) - 13) / (5 * h - 10) + abs(n - 25); // Вычисляем выражение
write(v); // Выводим ответ
writeln('Выполнил: ВАШЕ ФИО'); // Здесь вводите свое ФИО
end. // Конец программы
begin
var a:=ReadAllLines('int.txt').JoinIntoString.ToIntegers;
Print('Прочитано'); a.Println;
var b:=a.Where(x->x>0);
Print('Отобрано'); b.Println;
var f:=OpenWrite('out.txt');
foreach var e in b do Write(f,e,' ');
f.Close
end.
Тестовое решение:
Прочитано -5 8 -3 -2 0 -6 4 9 0 0 4 -4 -1 0 -1 3 6 7 1 8 0 2 -5 -2 9
Отобрано 8 4 9 4 3 6 7 1 8 2 9