Program;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b+c);
end.
var s:string;
k:byte;
begin
readln(s);
k:= <span>length(s);
write(k)
end.</span>
Можно в цикле for написать по возрастанию: for a:=1 to b или по убыванию: for a:=10 downto b
Var s,r,k: string;
j: integer;
begin
write('строка: '); readln(s);
foreach k in s.Split(' ').Distinct do
begin
j:=0;
foreach r in s.Split(' ') do
if r=k then j:=j+1;
writeln('слово ','"',k,'"',' встречается ',j,' раз');
end;
<span>end.
</span>
Abs - модуль числа.
div - целочисленный результат деления
mod - остаток от деления.
1) 10/12 = 0.8. Целый результат - 0. Модуль нуля тоже ноль.
2) корень из 17 - 4,12. Модуль - 4.