Если первый кратный 3, то после срабатывания условия <span>if a[i] mod 3=0 и удаления элемента, должен быть выход из цикла(break).</span>
1)((1∧1)∨0)∧(0∨1) = (1∨0)∧(0∨1) = 1∧1 = 1
2)
*если не отображается, смотри вложение*
Var a:integer;
b,c:string;
begin
b:='*';
c:='';
for a:=1 to 3 do begin
c:=c+b;
writeln(c);
end;
end.
<span> </span>
Var sm, kg:integer;
begin
write('Введите рост (см): ');
readln(sm);
write('Введите вес (кг): ');
readln(kg);
if (sm-100)<kg then
write('Вам нужно похудеть на ',kg-(sm-100),' кг')
else
write('Вам нужно поправиться на ',sm-100-kg,' кг');
end.