Program Lloyd;
var
i,a:integer;
begin
a:=1;
for i:=1 to 55 do begin
if (i mod 5)=0 then
a:=a*i;
end;
writeln('Произведение =',a);
end.
Напиши Program house; без каких либо знаков
Не обязательно
пользователь сам подключает внешние накопители, если ему не хватает встроенной памяти компьютера)
var
s, r, l: real;
begin
read(r);
s := pi * r * r;
l := 2 * pi * r;
write(s:0:3, #10, l:0:3);
end.
# Код на ruby 2.2.3p173
def zadanie(a, b, c, d)
return a + b + c - d
end
# Примеры применения
p zadanie(2, 2, 2, 4)
p zadanie(0, 0, 6, 4)
# ===============================================
# Код на ruby 2.2.3p173
def zadanie(a1, b1, a2, b2, a3, b3)
basket_with_berries1 = a1
basket_with_berries2 = b1
basket1 = a3
basket2 = b2
return basket_with_berries1 - basket1, basket_with_berries2 - basket2
end
# Примеры применения
p zadanie(1,2,2,1,0,3)