Задача 2 Урок 21

Primary tabs

Submitted by jl8qy9kd_pro on Fri, 09/10/2021 - 20:29

Forums:

Задача 2 Урок 21

var s:string;  i, n: Integer;
  a:  array[1..8] of char;
begin
 writeln('Vvedite stroku');
 readln(s);
 n := 1;
 while(n<10) do      // 1-8
   begin
   for i:=1 to Length(s) do
       if (s[i]>='0')and(s[i]<='9') then
         begin
           a[n]:=s[i]; 
           inc(n); 
         end;
   end;
 for i:=low(a) to high(a) do
   write(a[i],' '); // выводим массив
 readln();
end.

Определить, что делает эта программа
В ней есть лишние конструкции -- перепишите код оптимальным образом

var s:string;  i, n: Integer;
  a:  array[1..8] of char;
begin
 writeln('Vvedite stroku');
 readln(s);
 n := 1;
 while(n<10) do      // 1-8
   begin
   for i:=1 to Length(s) do
       if (s[i]>='0')and(s[i]<='9') then
         begin
           a[n]:=s[i]; 
           inc(n); 
         end;
   end;
 for i:=low(a) to high(a) do
   write(a[i],' '); // выводим массив
 readln();
end.
  • Log in to post comments
  • 1647 reads
vedro-compota's picture

vedro-compota

Sun, 10/03/2021 - 12:58

есть ли какие-то различия?

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

jl8qy9kd_pro

Fri, 10/08/2021 - 16:15 

//выбирает из строки первые 8 чисел и заполняет ими массив из 8 элементов
program my_program;
var s:string;  i, n: Integer;
  a:  array[1..8] of char;
begin
 writeln('Vvedite stroku');
 readln(s);
 n := 1;
 for i:=1 to Length(s) do
   if (s[i]>='0')and(s[i]<='9') then
     begin
       a[n]:=s[i];
       write(a[n],' ');
       inc(n);
       if(n > 8) then
         Break;
     end;
 readln();
end.
vedro-compota's picture

vedro-compota

Sun, 10/10/2021 - 13:02

решение засчитано

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