Блок-схема нахождения максимума в 2-мерном массиве
//Pascal ABC.NET 3.1 сборка 1219
Var
rm,rb,s:real;
begin
readln(rm,rb);
if rm>rb then
begin
writeln('Внутренний радиус больше внешнего');
swap(rm,rb);
end;
s:=pi*(sqr(rb)-sqr(rm));
writeln('S=',s);
end.
Пример ввода:
7
4
Пример вывода:
Внутренний радиус больше внешнего
S=103.672557568463
Var x1, y1, x2, y2, x3, y3, P: real;
function length(x1: real; y1: real; x2: real; y2: real): real;
begin
length := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
begin
read(x1, y1, x2, y2, x3, y3);
P := length(x1, y1, x2, y2) + length(x3, y3, x2, y2) + length(x1, y1, x3, y3);
writeln('Perimeter is ', P);
<span>end.
------------------------------
#include <cmath>
#include <iostream>
float length(float x1, float y1, float x2, float y2)
{
return pow((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2), 0.5);
}
int main()
{
float x1, y1, x2, y2, x3, y3, P;
std::cin >> x1 >> y1 >> x2 >> y2 >> x3 >> y3;
P = length(x1, y1, x2, y2) + length(x3, y3, x2, y2) + length(x1, y1, x3, y3);
std::cout << "Perimeter is " << P;
<span>}</span></span>
uses crt;
var
a:array[1..1000] of integer;
i,n,sum:integer;
begin
write('Введите число: ');
read(n);
for i:=1 to n-1 do
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
write(sum);
end.
Ответ:
2
Объяснение:
Преобразуем выражение, получим
(Х≥2) И (Х<5), из выражения, видно, что наименьшее число - 2
