\% - это остаток от деления
Например:
8\%4=0
7\%4=3 (то есть четверка может поместиться в семерке один раз, и еще останется 3)
Var
s: string;
begin
writeln('Введите ваше имя');
readln(s);
writeln('Здравствуйте, ',s);
writeln('Сегодня хорошая погода')
end.
Двоичная система:1110011
Восьмиричная система:163
Шестнадцатирачная система: 73
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