program abcd;
uses crt;
var a,b,c:real;
begin
writeln(Введите 3 действительных числа через пробел"');readln(a,b,c);
if a>5 then begin
a:=a*a;
writeln(a)
end
else writeln('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"');
if b>5 then begin
b:=b*b;
writeln(b);
end
else writeln('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"');
if c>5 then begin
c:=c*c;
writeln(c);
end
else writeln('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"');
end.
Это формат разрешения такой ' раз
мер
Var
k: array[1..100] of integer;
a,N,i,c:integer;
begin
c:=0;
i:=1;
a:=999;
write('Введите N: ');
readln(N);
writeln('Введите a: ');
while a<>0 do beginr
eadln(a);
if (a>=100) and (a<=999) then begin
if ((a div 100)+((a div 10) mod 10)+(a mod 10))=N then begin
k[i]:=a;
i:=i+1;
c:=c+1;
end;
end;
end;
if c>0 then begin
writeln('Числа, сумма цифр которых равна ',N,':');
for i:= 1 to c do
writeln(k[i]);
end;
end.
Var
y0, yk, yk1, eps, d: double;
i: integer;
begin
y0 := 0; yk1 := y0;
Write('Введите величину погрешности: ');
Readln(eps);
repeat
yk := (yk1 + 1) / (yk1 + 2);
d := yk - yk1;
if d >= eps then yk1 := yk
until d < eps;
Writeln('yn=', yk)
end.
Тестовое решение:
Введите величину погрешности: 1e-8
yn=0.618033988205325
Ну вроде бы как то так.
15-5=10 (дети, которые отлично учатся)
10-5=5 (дети, которые ходят на спорт)
10+5=15 (вобщем)
15+5=20 (детей в классе)