1.необходимо найти размеры всех прямоугольников, площадь которых равна заданному натуральному числу s и стороны которых выражены натуральными числами. при этом решения, которые получаются перестановкой размеров сторон, нужно считать одинаковыми.
формат входных данных
в программу вводится одно натуральное число s (1≤s≤1).
формат выходных данных
программа должна вывести длины стороны этих прямоугольников, для каждого прямоугольника на отдельной строке. порядок перечисления длин сторон в паре и порядок перечисления самих пар неважен.
входные данные выходные данные
10
10 1
5 2
25
25 1
5 5
2.даны сторона квадрата. вывести его диагонали символами .
формат входных данных
на вход программе одно целое число a (2
формат выходных данных
требуется вывести диагонали символами (см. пример)
входные данные выходные данные
5
# #
# #
#
# #
# #
3.найдите все целые числа из промежутка от a до b, у которых сумма делителей равна k.
формат входных данных
на вход три натуральных числа — a, b и k„ каждое на новой строке. все числа не превосходят 1000 и выполняется условие a≤b.
формат выходных данных
в единственной строке через пробел выведите все подходящие числа в порядке возрастания.
2
7
7
4
7
20
24
14 15
4.даны числа a и b. необходимо найти все числа, являющиеся полными квадратами, на отрезке [a; b].
формат входных данных
вводится два целых числа a и b (1≤a,b≤215−1).
формат выходных данных
требуется вывести все числа, удовлетворяющие условию .
входные данные выходные данные
1
5
1 4
2
9
4 9
const
N = 12;
var
a: array[1..N] of integer;
c, d, k, count, sum, i: integer;
begin
writeln('Введите промежуток: '); readln(c, d);
writeln('Введите k: '); readln(k);
for i := 1 to N do begin
a[i] := random(30);
write(a[i], ' ');
if(a[i] > 0) and (a[i] mod k = 0) then inc(count);
end;
for i := c to d do begin
sum := sum + a[i];
end;
writeln;
writeln('Сумма элементов на промежутке [', c,';', d,'] : ', sum);
if(count <> 0) then writeln('Положительных элементов кратных ', k, ' : ', count);
end.
Уже писал, но попал в баг(
Так вот. В паскале это будет так:
1)var a,b,c:integer;
begin
readln(a,b);
if a div 2 =0 then c:=(a+b)*(a+b)*(a+b);
else c:=a*a*a+b*b*b;
writeln(c);
end.
2)var a,b,c:integer;
d:real;
begin
readln(a,b,c);
if (a<0) or (b<0) or (c<0) then d:=abs(a+b+c)
else d:=sqrt(a+b+c);
writeln(d:0:2);
end.
3)var a,b,c:integer;
begin
readln(a,b,c);
if (a*b*c<0) then begin a:=a*a; b:=b*b; c:=c*c; end
else begin a:=abs(a); b:=abs(b); c:=abs(c); end;
writeln( a, ' ', b, ' ', c);
end.
Вот так вот.