var
i, count: integer
i := 1;
count := 0;
repeat
String stroka;
readln(stroka);
if(length(stroka)<3)
count := count+1;
i:=i+1
Until(i=8);
Выводишь на экран
Цикл оформляй через for, я просто забыл синтаксис этого цикла.
По замечанию уважаемой nelle987 и представленной ею формулой
, корректирую свой ответ.
Все числа типа
между 123 и 172:
<span>
</span><span>
</span>
Кек это присмешка
это как лол, что то типо очень смешно (смеюсь).
<span>Кек и лол одно и тоже
</span>
Массив создается и заполняется рандомными числами до 10
var
massive: array[1..20] of Integer;
i:Integer ;
summ:integer;
begin
WriteLn('все элементы');
for i:=1 to 20 do
begin
massive[i]:=Random(100);
write(massive[i],', ');
end;
for i:=1 to 20 do
begin
if massive[i] mod 5 = 0 then
summ:=summ+massive[i];
end;
writeln('сумма: ',summ);
end.