с заданием Exel . Нужно написать формулы, которые из списка участников соревнований, и показанных результатов, выводит фамилию победителя соревнований. Решить задание только используя функции • ПРОСМОТР и • ВПР
//Pascal var a, b, c, d, x1, x2: real; begin write('Введите a = '); readln(a); write('Введите b = '); readln(b); write('Введите c = '); readln(c); if ((a = 0) and (b = 0) and (c = 0)) then writeln('X любое') else if a <> 0 then begin d := sqr(b) - 4 * a * c; if (d > 0) then begin x1 := (-b+sqrt(d))/(2*a); x2 := (-b-sqrt(d))/(2*a); writeln('x1 = ', x1); writeln('x2 = ', x2); end else if d = 0 then begin x1:=-b/(2*a); x2:=x1; writeln('x1 = ', x1); //writeln('x2 = ', x2); end else if d < 0 then writeln('Корней нет.'); end else if (a = 0) and (b = 0) then writeln('Решений нет.') else if (a = 0) then begin x1 := (-c)/b; writeln('x = ', x1); end; end.
Есть во многих языках программирования, зря не указали, какой Вам надо.
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('День недели (1- Пн, 2- Вт, ... 7- Вс:');
Writeln(n<6?'Рабочий день':n=6?'Суббота':'Воскресенье')
end.
Примеры (предполагается без проверки корректность ввода)
День недели (1- Пн, 2- Вт, ... 7- Вс: 4
Рабочий день
День недели (1- Пн, 2- Вт, ... 7- Вс: 6
Суббота
День недели (1- Пн, 2- Вт, ... 7- Вс: 7
Воскресенье