//прога на Pascal`e
var
x: real;
function f (p:real):real;
begin
f:=sqr(p)-5*p/3;
end;
begin
write ('Введи x: ');
readln (x);
write (f(x));
end.
Задание 1.
var a,i,sum:integer;
s:string;
begin
writeln('Введите 4-ёх значное число');
readln(a);
s := IntToStr(a);
for i := 1 to s.Length do
if i mod 2 = 1 then
sum := sum + StrToInt(s[i]);
writeln('Сумма: ',sum);
end.
Задание 2.
var n,y:integer;
begin
writeln('Введите число n');
readln(n);
if n = 0 then
y := 0
else if n mod 2 = 0 then
y := -1
else if n mod 2 = 1 then
y := 1;
writeln('y = ',y);
end.
Var a,b,c,d,nod,k:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
c:=a; d:=b;
while (c>0)and(d>0) do
if c>d then c:=c mod d else d:=d mod c;
nod:=c+d;
k:=(a div nod)*(b div nod);
writeln(k,' квадратов размером ',nod,'x',nod);
end.
Пример:
a = 6
b = 15
10 квадратов размером 3x3
Ответ:
Объяснение:
карс лок- если нажать печатает вот такие буквы: АРПОААО. Если ещё раз нажать будут печататся не заглавные буквы