//Pascal ABC.NET 3.1 сборка 1219
Var
x,y,r:real;
k,i,xi,yi:integer;
begin
readln(x,y);
xi:=round(x-frac(x));
yi:=round(y-frac(y));
for i:=xi to yi do
begin
inc(k);
r:=r+power(i,3);
writeln(i);
end;
writeln('Count=',k);
writeln('Sum=',r);
end.
Пример ввода:
-1.8
2.8
Пример вывода:
Count=4
Sum=8
Пусть даны сторона ромба a и радиус вписанной окружности r. Тогда площадь ромба равна 2ar.
Необходимо получить значения a, r; вычислить значение площади и вывести его. Блок-схема приведена во вложении.
Program ggg;
uses GraphABC;var a,b: integer;beginwriteln('введи два целых числа');readln(a,b);if a>2 thenwriteln('первое число больше чем 2')else writeln('первое число меньше 2');
if b>2 thenwriteln('второе число больше чем 2')else writeln('второе число меньше 2');
end.