Var a,n:integer;
begin
writeln('Введите n');
readln(n);
for a:=10 to 99 do
if (a mod n =0)then writeln(a);
<span>end.</span>
Var a,k:integer;begink:=0;readln(a);
while a<>0 do
begin
k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
2 8 5 7 0
k = 4
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var c:=ArrRandomReal(12,-10,70).Println();
write(c.Where(x->(x>5.3) and (x<40.7)).Aggregate(Real(1),(x,y)->x*y));
end.
Есте́ственный язы́к<span> — в лингвистике и философии </span>языка язык<span>, используемый для общения людей (в отличие от формальных </span>языков<span> и других типов знаковых систем, также называемых языками в семиотике) и не созданный целенаправленно (в отличие от искусственных </span>языков<span>).
</span>Формальный язык<span> в математической логике и информатике — множество конечных слов (строк, цепочек) над конечным алфавитом. Понятие </span>языка<span> чаще всего используется в теории автоматов, теории вычислимости и теории алгоритмов. Научная теория, которая имеет дело с этим объектом, называется теорией </span>формальных языков<span>.</span>
===== PascalABC.NET
begin
var s := 0.0;
for var i := 1 to ReadInteger('n =') do
s += 1 / Sqrt(i);
Println(s)
end.