Регистрация
Нвдуооп
Есть ответ 👍

Может ли Витамин С с лимонным вкусом вредить зубам? ​

220
257
Посмотреть ответы 2

Ответы на вопрос:

tatyanamasenko
tatyanamasenko
4,4(69 оценок)

да, витамин с с лимоном может вредить

Nalasinskaya
Nalasinskaya
4,5(33 оценок)
Program spisok;
Const n=2;
Type uch=Record
          fam:string[20];{фамилия}
          inctr:string[20];{инструмент}
          stag:integer;{стаж}
          konk:integer;{участие в конкурсах 0-НЕТ,1-ДА}
     end;
Var muz:array[1..n] of uch;{массив записей}
    i:integer;
BEGIN
     Writeln('Введите записи');
     For i:=1 to n do
          begin
               Writeln(i);
               With muz[i] do begin
                    Writeln('Фамилия ');
                    readln(fam);
                    Writeln('Инструмент ');
                    readln(inctr);
                    writeln('Cтаж');
                    readln(stag);
                    writeln('Участие в конкурсах (0-НЕТ,1-ДА) ');
                    readln(konk);
               end;
          end;
    Writeln('');
    For i:=1 to n do begin
      if muz[i].inctr='скрипка' then begin
        With muz[i] do begin
                    Writeln('Фамилия ',fam);
                    Writeln('Инструмент ',inctr);
                    writeln('Cтаж',stag);
                    writeln('Участие в конкурсах (0-НЕТ,1-ДА) ',konk);    
        end;
      end;
    end;
END.

Популярно: Другие предметы