ПРАКТИЧНА РОБОТА No 1 «Електронне листування. Вкладені файли» Увага! Під час роботи з комп'ютером дотримуйтеся вимог безпеки жummed яльності та санітарно-гігієнічних норм. 1. Запустіть текстовий процесор. Опишіть у текстовому документі у 2-3 реченах традиції, пов'язані з вашим улюбленим народним святом. Збережіть документ у вашій папці у файлі з іменем Свято. 2. Надішліть на адресу вчителя або вчительки інформатики електронний лист з тен мою Народні свята. 1. У текст листа додайте привітання, назву вашого улюбленого свята, ваш підпис 2. Вкладіть створений документ Свято до вашого листа

 

  uses   crt;   var   a: array [1..20, 1..20] of real;   i, j, k, n, s: integer;   begin   clrscr;   write('Введите размер матрицы: ');   read(n);   for i := 1 to n do     for j := 1 to n do     begin       write('A[', i, ',', j, ']= ');       readln(a[i, j]);     end;   WRITELN;   WRITELN;   writeln('Исходная матрица ', n, 'x', n, ': ');   for i := 1 to n do   begin     for j := 1 to n do       WRITE(a[i, j]:2:0, ' ');     WRITELN;   end;   k := 0;   for i := 1 to n do   begin     for j := 1 to n do     begin       if a[i, j] = 0 then       begin         k := k + 1;         s := s + 1;       end;     end;     if k = n then writeln(i, ' строка состоит из нулей! ');     k := 0;   end;   if s = 0 then writeln('В матрице нет нулевых строк'); end.

Program pr;
uses crt;

var a,b:real;

Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);

if (a<0) and (b<0)   
    then     
       Begin       
            a:=a+2;
            b:=b+2; 
             writeln('a = ',a); 
             writeln('b = ',b); 
        end
else 
      if (a>0) and (b<0)     
        then       
           writeln('a*b = ',a*b)
      else 
           if (a<0) and (b>0)     
                then        
                   writeln('b-a = ', b-a)

           else  writeln('Ни одно условие не выполняется');

readln;
end.