Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
все истина т.к.если пишется "или" то достаточно чтобы что-то одно было правдой,тогда и все истинно.
компьютер входит в состав технической системы.
компьютер является надсистемой для ос.
program xxx;
var i, k, d, e, s : integer;
begin
k: =0;
for i: = 10 to 99 do
d: = i div 10;
e: = i mod 10;
s: =d + e;
if i mod s = 0 then k: =k+1
end;
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
readln
end.
var
x : array [1..15] of integer;
i : integer;
min : integer;
kol_nol : integer;
kol_nol : = 0;
for i: =1 to 15 do
write ("введите элемент массива: ");
readln(x[i]);
min : = x[1];
for i : = 0 to 15 do
if (x[i] > 0) then
if (x[i] < min) then
min : = x[i];
if (x[i] = 0) then
inc(kol_nol);
writeln(min);
writeln(kol_nol);
Популярные вопросы