1. Ознакомиться с материалом презентации в разделе "Материалы" 2. Выполнить Формативное задание

Формативное задание

1. Напиши определения электронной почты ( )

2. Укажите виды домена ( )

а) Организации

б) Планеты

в) Страны

д) Продовольственные

3. Напишите определения пароль (1б)

4. Определите, надежный пароль. (1б)

а) 12345678

б) Abcdef

в) 123abc

д) Fg10!dD9

5. До появления компьютеров, для набора текста использовали...? (1Б)

а) принтеры

б) печатные машинки

в) ноутбук

6. Робот - это... (1)

7. Выберите виды роботов (3б)

а) робот-игрушка

б) бытовой робот

в) интеллектуальный робот

д) робот аквалангист​

 Program SumAndMul;

Uses Crt;

var a:array[1..10] of real;

       i:integer;   

       sum,mul:longint;

begin

     clrscr;

     for i:=1 to 10 do

            begin

                 write('Введите -', i,' число:'  );

                  readln(a[i]);

             end;

sum:=0;mul:=1;

for i:=1 to 10 do

            begin

                if (a[i]>0) then sum:=sum+a[i];

                if (a[i]<0 )  then mul:=mul*a[i];

             end;    

 writeln('Сумма положительных элементов: ',sum);

 writeln('Произведение отрицательных элементов: ',mul);  

   readkey;

end.

var

 i, si, N, ss: Integer;

 s: string;

begin

   Write ('Введите N: ');

   ReadLn (N);

   s := IntToStr (N);

   ss := 0;

   for i := 1 to Length (s) do begin

     si := StrToInt (s [i]);

     if si mod 4 <> 0 then

       ss := ss + si;

   end;

   Writeln ('Сумма цифр = ' + IntToStr (ss));

end.

// второй вариант решения

var

si, N, ss: Integer;

begin

Write ('Введите N: ');

ReadLn (N);

ss := 0;

while N > 0 do begin

si := N mod 10;

N := N div 10;

if si mod 4 <> 0 then

ss := ss + si;

end;

Writeln ('Сумма цифр = ' + IntToStr (ss));

end.