1)
uses crt;
var y,x:integer;
begin
writeln(x);
y:=COS(x/2)-SIN(x);
readln(y);
end.
2)
uses crt;
var a,y,x:integer;
begin
a:=0;
readln(x);
a:=0,5*x+1;
y:=0,5*sqr(a)+1,4*x-1;
writeln(y);
end.
3)
uses crt;
var d,x:integer;
begin
writeln(x);
d:=(1/3)*x*49+(4/6)*x*108+(2/6)*x*80;
readln(d);
end.
Пусть х - любая из цифр 1,2,4.
Тогда количество чисел вида 3хх = 3^2 = 9;
количество чисел вида х3х = 3^2 = 9;
количество чисел вида хх3 = 3^2 = 9;
количество чисел вида 33х = 3;
количество чисел вида 3х3 = 3;
количество чисел вида х33 = 3;
одно число 333
Итого:
9+9+9+3+3+3+1 = 37
//1
begin
for var i:=6 to 12 do print (i);
end.
//2
begin
for var i:=1 to 4 do writeln ('забота');
end.
//3
var sum: longint;
begin
for var i:=1 to 5 do inc (sum, readinteger('Введите число: '));
write ('Сумма пяти чисел: ', sum);
end.
//4
var sum, n: integer;
begin
for var i:=1 to 10 do
begin
n:=readinteger ('Введите число: ');
if (n mod 2)=0 then inc (sum, n);
end;
write ('Сумма четных чисел: ', sum);
end.
//5
var sum, r: integer;
begin
for var i:=1 to readinteger ('Введите n: ') do
begin
r:=readinteger ('Введите число: ');
if (r mod 3)=0 then inc (sum, r);
end;
write (sum);
end.
//6
begin
for var i:=0 to 9 do
if ((4204+10*i) mod 7) = 0 then writeln (i);
end.
Uses graphABC;beginsetwindowsize(600,500);setbrushcolor(clgreen);Ellipse(100,430,500,130);setbrushcolor(clNavy); Ellipse(250,260,220,310);Ellipse(350,260,380,310);setbrushcolor(clblack);Ellipse(270,330,330,370);line(300,370,300,400);Arc(300,280,120,220,-40); line(120,240,150,40);line(150,40,280,150);line(280,150,120,240);line(320,150,480,240);line(480,240,450,40);line(450,40,320,150);floodfill(200,100,clblack);floodfill(400,100,clblack);line(50,350,200,350);line(30,340,190,340);line(10,330,180,330); line(410,330,570,330);line(400,340,560,340);line(390,350,550,350); line(250,240,220,150);line(240,240,180,80);line(230,240,180,150); line(350,240,380,150);line(360,240,430,80);line(370,240,430,150); end.