Можно как то так:
var
M: real;
x: integer;
begin
for x := 1 to 100 do
begin
M := 2 / Sin(x);
Println('x=', x, '; M=', M);
end;
end.
Считая, что в столбце A задается значение аргумента x, а в столбце B - значение функции y, можно определить, что в приведенном фрагменте таблицы вычисляется функция y = 2x.
При x=1 y=2, x=2 y=4, ... x=10 y=20
График данной функции - средний в верхнем ряду.
Ввод: a ^ b ^ c С/П.
П0 -> П1 -> П2 ИП1 ИП0 + + 2 / П3 ИП0 - ИП3 ИП1 - ИП3 ИП2 - * * ИП3 / пи * С/П
а) Серёже надо приходить в 8 часов.
б) нарицательные числа
в) 0 не делиться на 5
1)
program chik;
var a,b:integer;
begin
read(a,b,c);
if(a mod b=0)then writeln('делиться')else writeln('не делиться');
end.
2)
program chik2;
var a:integer;
begin
read(a);
if(a mod 2=0)then writeln('да')else writeln('NO');
end.
3)
program chik3;
var a,b,c,max:integer;
begin
read(a,b,c);
max:=a;
if(b>max)then max:=b;
if(c>max)then max:=c;
writeln(max);
end.