Для організації дистанційного навчання необхідні засоби конференц-зв'язку, хмарне середовище та офісний пакет. Оберіть, який із зображених програмних продуктів не належить до переліченого: Обери один варіант.
1) посчитать сумму всех нечетных чисел от 230 до 430 // PascalABC.NET 3.0, сборка 1088 var i,s:integer; begin i:=231; s:=0; repeat s:=s+i; i:=i+2 until i>400; Writeln('Сумма нечетных чисел на интервале [230;400]: ',s) end.
Результат выполнения программы: Сумма нечетных чисел на интервале [230;400]: 26775
2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать // PascalABC.NET 3.0, сборка 1088 var i:integer; begin i:=900; repeat Write('(',i:3,',',sqrt(i):9:5,') '); i:=i-7 until i<0; Writeln; end.
3) найти сумму чисел шестизначного числа // PascalABC.NET 3.0, сборка 1088 var n:longint; s:integer; begin Write('n='); Read(n); repeat s:=s + (n mod 10); n:=n div 10 until n=0; Writeln('Сумма цифр числа равна ',s) end.
Тестовое решение: n=472305 Сумма цифр числа равна 21
Program aaa; type t=array[1..30] of integer; var a:t; i,h,max,max1,y:integer; q,c:real; procedure chet(a:t); var i,z:integer; begin z:=0; for i:=1 to 30 do if(odd(a[i])=false) then inc(z); writeln(z); end; begin for i:=1 to 30 do read(a[i]); //1 chet(a); //2 h:=0; c:=0; for i:=1 to 30 do if((a[i] mod 3 = 0) and (a[i] mod 9 <> 0) and (a[i]>9) and (a[i]<100)) then begin inc(h); c:=c+a[i]; end; if(h=0) then writeln(-1) else writeln(c/h); //3 h:=0; max:=0; for i:=1 to 30 do begin if((odd(a[i])=false) and (y=0)) then begin h:=i; y:=1; continue; end; if((y>0) and ((odd(a[i])=false))) then inc(y) else if(y>max) then begin max:=y; max1:=h; y:=0; end else y:=0; end; for i:=max1 to max+max1-1 do write(a[i],' '); writeln; //4 readln(h); y:=a[h]; for i:=h to 29 do a[i]:=a[i+1]; for i:=1 to 29 do write(a[i],' '); for i:=29 downto h do a[i+1]:=a[i]; a[h]:=y; writeln; //5 max:=0; max1:=0; for i:=1 to 30 do begin if(a[i]>max) then begin max1:=max; max:=a[i]; end; if((a[i]>max1) and (a[i]<max)) then max1:=a[i]; end; writeln(max1); end.
Ps на синьому квадраті це значок фотошопу - (графічний редактор), він лишній, інше:
libre office - офісний пакет, має практично такий же функціонал як майкрософт офіс, але безкоштовний
а S на блакитній "кляксі" - значок скайпу = засіб для конференц-зв'язку