Программа в Pascal,ABC,Net var x,y:real; begin Write('Введите х: '); Readln(x); if x<=0 then y:=sin(x)-cos(x) else y:=5*sqr(x)-sqr(sin(x)); Writeln('y=',y) end.
// PascalABC.NET 3.2, сборка 1399 от 08.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadReal('Площадь решета равна'); var a:=ReadArrReal('Введите диаметры клубней:',10); var d:=sqrt(4*s/pi); var b:=a.Where(x->x<d); var n:=b.Count; if n>0 then begin Write('Пройдут клубни диаметром '); b.Print; Writeln(' - всего ',n,' шт.') end else Writeln('Ни один клубень не пройдет') end.
Пример Площадь решета равна 45 Введите диаметры клубней: 8.6 7.1 9 10.2 6.4 5 6 8.2 6.6 7 Пройдут клубни диаметром 7.1 6.4 5 6 6.6 7 - всего 6 шт.
Microsoft Office Word 2007- текстовый процессор, предназначенный для создания и редактирования текстовых документов. Первый выпуск Word состоялся в конце 1983 года. Функции: 1) Редактирование и создания текста 2) Поиск орфографических ошибок 3) Возможность текст разбивать на страницы 4) Возможность создавать оглавление документа 5) Распечатка файлов различных форматов 6) Удаление объектов из файла 7) Вставка в файл научных объектов 8) Выделение необходимых участков 9) Вставка рисунков и файлов 10) Создание таблиц 11) Вставка в файл видеоклипов, текстовых спец эфектов Думаю достаточно
var
x,y:real;
begin
Write('Введите х: '); Readln(x);
if x<=0 then y:=sin(x)-cos(x)
else y:=5*sqr(x)-sqr(sin(x));
Writeln('y=',y)
end.
Тестовое решение:
Введите х: 0.137
y=0.0751931316536888