1)
var
count, num: integer;
begin
count := 0;
repeat
if (num > 0) and (num mod 2 = 0) then count := count + 1;
read(num);
until (num = 0);
write(count);
end.
2)
var
totalCount, count, num: integer;
begin
totalCount := -1; count := 0; num := -1;
repeat
totalCount := totalCount + 1;
if (num mod 3 = 0) then count := count + 1;
read(num);
until (num = 0);
write((count * 100) / totalCount, '%');
end.
Например:
(в А2) = 2*(А1+B1) Ответ будет = 6
(в B2) = 1/ (корень (B1 -1) Ответ =1 Если в B1 поменять 2 на 1 будет ошибка (в знаменателе 0)
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var k:=0;
var n:integer;
Writeln('Вводите натуральные числа; 0 - окончание ввода');
repeat
Read(n);
if (n>99) and (n<1000) and (n mod 4=0) then Inc(k)
until n=0;
Writeln(k)
end.
В Системном блоке<span> находится вся техническая составляющая ПК. Все, благодаря чему работает компьютер. Если открыть системный блок, то мы увидим материнскую плату и размещенные на ней компоненты.</span>
цикл -- это научный круг наук так я понила тоесть тебе нужно нарисовать триугольник в круге я так понимаю больше не чем немогу помочь.