Ну, если розы росли так:
* *
* *
* *
* *
* *
то периметр 12 метров ( но здесь есть заковыка: если первый куст уже полит, то зачем же к нему идти еще раз? Тогда ответ 9*1,2 = 10,8 м)...
//PascalABC.NET v3.3 1633
const n = 15;
var arr: array [1..n] of integer;
begin
for var i:=1 to n do
arr[i]:=random(-5,5);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to n do
if arr[i] > 0 then
count += 1;
writeln('Количество положительных элементов: '+count);
end.
Program z1;var N,A,B,C,D:integer;beginreadln(N);A:=N div 1000;B:=(N div 100) - (N div 1000)*10;C:=(N div 10)- (N div 100)*10;D:=(N mod 10);n:=0;if (A mod 3)=0 then N:=N+A;if (B mod 3)=0 then N:=N+B;if (C mod 3)=0 then N:=N+C;if (D mod 3)=0 then N:=N+D;writeln(N); end.
Какой сайт , нормальный сайт не надо ляля
Программа на Кумире
алг
нач
цел к, н
н:=1
нц для к от -9 до 9 шаг 2
н:=н*к
кц
вывод н
кон