Розрахувати значення функції y(x)=A sin*2(3x) ,якщо А=4 ,а значення х змінюється на інтервал від (-3 до 3) з кроком 0.2

5. Вычислить значение переменной S:

a:=2;

b:=3;

S:=7;

[ЕСЛИ] a−b > 0, [ТОГДА] S:=a

[ИНАЧЕ] S:=b; S:=S+a

2−3 = −1  ⇒ a−b < 0 — выполняется оператор [ИНАЧЕ]

S=3; S:=3+2; S=5

ответ: б) 5

6. Вычислить значение переменной S:

a:=1;

b:=4;

C:=5;

S:=0;

[ЕСЛИ] S<b {ИЛИ} a>b, [ТОГДА] S:=a

[ИНАЧЕ] S:=b; S:=S+c

0<4, 1<4  ⇒ a<b — выполняется оператор [ИНАЧЕ]

S=4; S:=4+5; S=9

ответ: в) 9.

7. Вычислить значение переменной X:  

A:=5;

B:=2;

C:=3;

[ЕСЛИ] A>C {И} A<B, [ТОГДА] X:=5*A-5*B

[ИНАЧЕ] X:=A+B

5>3, 5>2 ⇒ A>B — выполняется оператор [ИНАЧЕ]

X:=5+2; X=7

ответ: г) 7.

//Блок-схема во вложении
//Pascal ABC.NET 3.1 сборка 1219

uses
 system;

Var
 d1,d2:datetime;
 a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.

Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366