1. Программа "Анкета":
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('<span>Сегодня ярко светит солнце!</span>')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.
<span>
Для вычислений длительностей интервалов дат в Excel есть функция РАЗНДАТ(), в английской версии - DATEDIF().</span><span>Нюанс в том, что Вы не найдете эту функцию в списке Мастера функций, нажав кнопку<span> fx</span> - она является недокументированной возможностью Excel. Точнее говоря, найти описание этой функции и ее аргументов можно только в полной версии англоязычной справки, поскольку на самом деле она оставлена для совместимости со старыми версиями Excel и Lotus 1-2-3. Однако, несмотря на то, что эту функцию не получится вставить стандартным способом через окно <span>Вставка - Функция (Insert - Function)</span>, ее можно вручную вписать в ячейку с клавиатуры - и она сработает!</span>Синтаксис функции следующий:РАЗНДАТ(начальная_дата; конечная_дата; способ_измерения)Самый интересный аргумент, конечно, последний. Он определяет, каким именно образом и в каких единицах будет измеряться интервал между начальной и конечной датами. Этот параметр может принимать следующие значения:<span><span>"y"разница в полных годах </span><span>"m"в полных месяцах</span><span>"d"в полных днях</span><span>"yd"разница в днях с начала года без учета лет</span><span>"md"разница в днях без учета месяцев и лет</span><span>"ym"разница в полных месяцах без учета лет</span></span>Т.е. при желании подсчитать и вывести, например, ваш стаж в виде "3 г. 4 мес. 12 дн.", необходимо ввести в ячейку следующую формулу:=РАЗНДАТ(A1;A2;"y")&" г. "&РАЗНДАТ(A1;A2;"ym")&" мес. "&РАЗНДАТ(A1;A2;"md")&" дн."или в английской версии Excel:<span>=DATEDIF(A1;A2;"y")&" y. "&DATEDIF(A1;A2;"ym")&" m. "&DATEDIF(A1;A2;"md")&" d."</span><span>где А1 - ячейка с датой поступления на работу, А2 - с датой увольнения.</span>
Ответ:
В ячейках таблицы
В А1 пишем -50
В А2 пишем -45
Выделяем А1 и А2 и растягиваетм вниз за правый нижний угол до ячейки, в которой окажется 50
В В1 пишем
=ЕСЛИ(И(ЕСЛИ(A1>-10;1;0);ЕСЛИ(A1<40;1;0));A1+2;COS(A1)+A1)
Выделяем В1 и также за нижний правый угол растягиваем вниз.
В столбце В получаем значения функции
Объяснение:
Внимательнее
Все названия ячеек на латинском
Примеры:
1.
if (ivanov=0) or (petrov=1) then
begin
sidorov:=1;
end;
2.
if ivanov=0 then
begin
sidorov:=0;
end;