Div-целая часть от деления
mod-остаток от деления
допустим поделим 25:4=6.25
где 6 - div
где 25 - mod
------------------------
x=336
y=8
x=x div y = 336 div 8 = 42 , тк тут нет остатка так и остается
y=x mod y = 42 mod 8 = 5.25 , но там нужен mod значит 25
Что надо сжечь сделать напиши в то я не поняла ))
Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.
1вг
2абг
3 б 11101110111
4в
5 501
6гвба
7б
8б
9г(переменных)
10в
11в
12 96
13 38с4