Чому дорівнює значення змінної К після виконання фрагмента програми? var a: array [1..8] of Integer; і, k: Integer; begin for і := 1 to 8 do a[і] := і*2; k := a[7]+a[8]; …

k = (7*2) + (8*2)

1) при установке необходимого ему программного обеспечения на персональный компьютер;

2) при создании текстовых, графических и других документов;

3) при переносе (копировании) на свой компьютер фотографий, текстов, музыки, видеофильмов и другой информации, хранящейся на различных устройствах внешней памяти или в сети Интернет;

4) при сохранении на своём компьютере ссылок на заинтересовавшие его сетевые ресурсы и т. д.

Индивидуальное информационное пространство (ИИП) - информационные ресурсы, доступные пользователю, когда он работает на ПК. Люди формируют ИИП, создавая документы, устанавливая ПО, сохраняя на ПК файлы с других носителей и из интернета. Создавая ИИП, следуйте простым правилам: достоверность данных; отсутствие информации, оскорбляющей честь и достоинство людей; отсутствие угроз в адрес других людей; запрет на пропаганду насилия, терроризма и национальной розни; отказ от распространения вирусов.

1) var a,b: integer ;

begin

readln(a);

b:=(a mod 10)+(a div 10);

if ((b mod 7=0) and ((a div 10) mod 2 =0)) then writeln ('верно') else writeln ('не верно')  

end.

2)var a,b,i: integer;

begin

 readln(a);

 for i:=1 to 3 do

   if a mod 10 > 3 then begin  b:=b+1; a:=a div 10; end;

   if b=3 then writeln ('верно') else writeln ('не верно')

end.

3)var a,b,c,d,i: integer;

begin

 readln (a);

 b:= b+a mod 10;

d:= a div 10000;

b12:=b+d mod 10;

a:=a div 10;

for i:=1 to 3 do  begin c:=c+a mod 10; a:=a div 10 end;

if c mod b =0 then writeln ('верно') else writeln ('не верно') ;

end.