program slova;
uses crt;
var s, s1: string;
i, k: integer;
begin
clrscr;
writeln ('Vvedite text: ');
readln (s1);
write ('Slova soderjaschie ne bolee 3-h bukv: ');
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
s1:=s1+s[i];
k:=k+1;
end
else
if k<=3 then
begin
write (', ',s1);
k:=0;
delete (s1,1,3);
end
else
begin
k:=0;
delete (s1,1,15);
end;
end;
readln;
end.
Вроде так, но у меня щас нету компилятора, так что проверить не могу. Если что-то будет ругаться, или вопросы какие - пиши в личку.
1. Это число двузначное?
2. Это число делится на два?
3. Это число делиться на пять?
4. Это число простое?
Ну это всё что я смог придумать
:(
1)См рисунок,он из интернета,ибо я могу нарисовать,но будет криво(
2) путь от диска C:/ до файла. К примеру, файл информатика.docx в папке "Школа" на рабочем столе будет иметь такой путь: C:\Users\%username%\Desktop\Школа\информатика.docx. Это на виндовс
3)
C:\Участники
C:\Конференция\Участники
C:\Конференция\Регионы\Участники
C:\Конференция\Регионы\Списки\Участники
Он захотел летать как птица вот Леонардо да Винчи создал из дерева и бумаги не большой самолётик который всех порозил но не все им стали пользоваться ,а когда он хотел как рыба плавать он взял железо истекло с трубкой и соединил и получился шлем струбкой и дышит и плавает.
Удачи во всём тебе и выучись хорошо!