Var len: Integer;
begin
write('Введите строку: ');
readln(s); // считываем из стандартного потока ввода, например.
len := length(s); запоминаем длину строки
end;
Key Words for FKN + antitotal forum (CS VSU):
Var
L:integer;
begin
writeln('Введите средний балл ученика: ');
readln(L);
if L>=13 then
writeln('Ученик будет посещать факультатив.');
if L<13 then
writeln('Ученик не может посещать факультатив!');
<span>end.</span>
1) Перевести в троичную симметричную систему числа:
а) 17; б) -23; в) 41; г) -31.
2) Перевести в десятичную:
а) +-0---+0; б) --0-++0-; в) +00-+++; г) +---000+.
Размерами и качествами.....
Кстати, TIFF качественный, но ОБЪЁМНЫЙ!
Var
O:integer;
Begin
Write('Введите оценку ученика: ');
ReadLn(O);
Case O of
1:Write('плохо');
2:Write('неудовлетворительно');
3:Write('удовлетворительно');
4:Write('хорошо');
5:Write('отлично');
End;
End.