Var n,i,k:Integer;
begin
write ('Введите натуральное число (n<=1000): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
<span>Могу предложить на Паскале:
uses Crt;
var x, y, z: real;
</span><span>begin
ClrScr;
Write ('x = '); ReadLn(x);
Write ('y = '); ReadLn(y);
if (y<>-7) and (x+abs(y)>=0)
then
begin
z:=9*sqr(sqr(x))-sqrt(x+abs(y))/(y+7);
WriteLn('z = ', z:4:2);
end
else Writeln('None!');
ReadLn;
end.
Здесь важно учесть, что Y не должен равняться (-7), поскольку на 0 делить нельзя, и X должен быть больше или равен модулю Y, поскольку нельзя извлекать корень из отрицательного числа.
PS: Если надо решение на Си++, то это сделать просто, основываясь на приведенной выше программе...
</span>
Var A,B,i : Integer;
Begin
Readln(A,B);
For i:=A to B do Writeln(Sqr(i));
end.
Var
i: integer;
begin
i := 2;
while i < 15 do
begin
write(i:3);
i := i + 2
end;
writeln
end.
Тестовое решение:
2 4 6 8 10 12 14
var
p: real;
begin
p := 2;
while p < 9.01 do
{Нельзя задавать ровно 9 из-за накопления ошибок шага 0.2}
begin
write(p:4:1);
p := p + 0.2
end;
writeln
end.
Тестовое решение:
2.0 2.2 2.4 2.6 2.8 3.0 3.2 3.4 3.6 3.8 4.0 4.2 4.4 4.6 4.8 5.0 5.2 5.4 5.6 5.8 6.0 6.2 6.4 6.6 6.8 7.0 7.2 7.4 7.6 7.8 8.0 8.2 8.4 8.6 8.8 9.0