Массив из N элементов заполняется с клавиатуры натуральными числами. Найти, сумму тех элементов массива, в записи которых есть цифры 5 и 9. Использовать функцию, определяющую количество 5 и 9 в натуральном числе.
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016 // Внимание! Если программа не работает, обновите её версию!
function Len(ax,ay,bx,by:real):=sqrt(sqr(bx-ax)+sqr(by-ay));
var x,y,L:array[1..4] of real; begin Writeln('Введите координаты четырех точек (парами х,y)'); for var i:=1 to 4 do Read(x[i],y[i]); for var i:=1 to 3 do L[i]:=Len(x[i],y[i],x[i+1],y[i+1]); L[4]:=Len(x[4],y[4],x[1],y[1]); var s:=0.0; for var i:=1 to 4 do s+=L[i]; Writeln('P=',s) end.
Пример Введите координаты четырех точек (парами х,y) -5 -4.7 -3.2 6.7 5.1 8 7.4 -6.13 P=46.7405707422041
Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. ответ совпадает.
1. Почему работа компьютера невозможна без операционной системы? Потому что операционная система дает игроку весь возможносный инструментарий. Много ли вы сможете наработать на выключенном компьютере? 2. Какие операционные системы вы знаете? Windows (95,98, ME, XP, 7, 10), Android, Linux, MacOS 3. Какие программы, кроме операционной системы, относятся к системному ПО? Драйвера, антивирусы,
4. Какие системы программирования вам известны? Pyton, C++ 5. Для специалистов какой профессии предназначены системы программирования? Программист, Специалист в области кибербезопасности
// Внимание! Если программа не работает, обновите её версию!
function Len(ax,ay,bx,by:real):=sqrt(sqr(bx-ax)+sqr(by-ay));
var
x,y,L:array[1..4] of real;
begin
Writeln('Введите координаты четырех точек (парами х,y)');
for var i:=1 to 4 do Read(x[i],y[i]);
for var i:=1 to 3 do
L[i]:=Len(x[i],y[i],x[i+1],y[i+1]);
L[4]:=Len(x[4],y[4],x[1],y[1]);
var s:=0.0;
for var i:=1 to 4 do s+=L[i];
Writeln('P=',s)
end.
Пример
Введите координаты четырех точек (парами х,y)
-5 -4.7 -3.2 6.7 5.1 8 7.4 -6.13
P=46.7405707422041
Во вложениях приведено решение этой же задачи в онлайн-калькуляторе. ответ совпадает.