profile
Опубликовано 5 лет назад по предмету Информатика от Аккаунт удален

Написать программу которая 10 раз выводит на екран Имя и Фамилию. Это турбо паскаль - использование цыклов while, for и других.пожалуйста очень надо!!))

  1. Ответ
    Ответ дан PsyhoAssasin

    // Программа выводит по 10 раз имя и фамилию тремя разными циклами for while

    // repeat until

     

    Program LoopName;

    Uses Crt;

    var name,s_name:string;

           i:integer;

    begin

        clrscr;

        write('Введите имя: ');

        readln(name);

       write('Введите фамилию: ');

       readln(s_name);

       writeln('Цикл For');

     

       for i:=1 to 10 do writeln(name,'  ',s_name );

     

       writeln;

      writeln('Цикл while'); 

        i:=1;

       while (i<=10) do

          begin  

              writeln(name,'  ',s_name );

               i:=i+1;

           end;  

     

       writeln;  

       writeln('Цикл repeat until');

             

        i:=0; 

        repeat

              writeln(name,'  ',s_name );

               i:=i+1;

         until(i=10); 

       readkey; 

     end.