Var
a: array[1..20] of integer;
i,x: integer;
Begin
x := 1;
write('Введите 20 чисел для заполнения массива: ');
for i := 1 to 20 do begin
readln(a[i]);
end;
for i := 1 to 20 do begin
if(a[i] mod 2 = 1) and (a[i] mod 3 = 0) then
x := x * a[i];
end;
writeln('Произведение чисел нечетных и кратных 3 = ', x);
End.
Маркированный и нумированный
<span>Вы идете по дороге в Типперери и доходите до развилки. Там вы встречаете двух человек. Вам известно, что один из них всегда говорит правду, а другой всегда лжет. Но вы не знаете, кто именно лжец, а кто правдолюбец. Чтобы узнать дорогу, вы можете задать только один вопрос только одному человеку. Какой это должен быть вопрос? -ДЕДУКЦИЯ
</span>
#include <iostream>
using namespace std;
int main (){
float a, b, c;
cin >> a >> b>> c;
if (a != 0) cout << a << " ";
if (b != 0) cout << b << " ";
if (c != 0) cout << c;
return 0;
}
var
c,r,s:real;
begin
write('dlina okruznosti=');
readln(c);
r:=c/(2*pi);
s:=pi*sqr(r);
writeln('ploshad=',s)
end.