if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');
readln;
end.
Ответ дал: Гость
var
x : array [1..15] of integer;
i : integer;
min : integer;
kol_nol : integer;
begin
kol_nol : = 0;
for i: =1 to 15 do
begin
write ("введите элемент массива: ");
readln(x[i]);
end;
min : = x[1];
for i : = 0 to 15 do
begin
if (x[i] > 0) then
begin
if (x[i] < min) then
begin
min : = x[i];
end;
end;
if (x[i] = 0) then
begin
inc(kol_nol);
end;
writeln(min);
writeln(kol_nol);
end;
Ответ дал: Гость
если первый говорит правду, то он тоже брехун и, значит, не может говорить правду, значит первый брехун, второй сказал правду, так как из них он один говорит правду, а второй брехун.
Ответ дал: Гость
виды алгоритмов по способу записи
1)текстовый
2)графический.
виды алгоритмов по последовательности исполнения шагов-команд
Популярные вопросы