Урок 16(Решенная задача номер 2)

Primary tabs

Romakip's picture
Submitted by Romakip on Fri, 10/09/2020 - 12:07

Forums:

Урок 16(Решенная задача номер 2)

2)Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.

var s: string;
    i, c : integer;

begin
 writeln('vvedite stroky');
 readln(s);
 if (length(s) >= 5) then
 begin
   for i:= 1 to length(s) do
    if (i mod 5 = 0) then
     writeln(s[i]);
 end
 else writeln('osibka');
end.

.

  • Log in to post comments
  • 2214 reads
vedro-compota's picture

vedro-compota

Sat, 10/10/2020 - 20:27

избавится от условия в каждом витке

_____________
матфак вгу и остальная классика =)

Romakip's picture

Romakip

Mon, 10/12/2020 - 15:42 

var s: string;
    i: integer;

begin
 i := 5;
 writeln('vvedite stroky');
 readln(s);
 if (length(s) >= 5) then
 begin
   while (i <= length(s)) do
     begin
       writeln(s[i]);
       i := i + 5;
     end;
 end
 else writeln('osibka');
end.