var
i,a,N:integer;
sr:real;
begin
write('Vvedite N = ');
readln(N); // Вводите количество чисел в массиве и одновременно вводите диапозон массива от 1 до N
randomize;
for i:=1 to N do
begin
a:=random(N);
write(a,' ');
sr:=sr+a; //Значения массива складываются
end;
sr := (sr / N); //Сумма значений массива делится на количество значений
writeln('srednee arifmeti4eskoe = ',sr:1:2); //Выводится среднее арифметическое
readln;
end.
Многое зависит от телефона и приложения установленного там:
Тебе надо выбрать картинку и найти слово "Анимация" и там уже выбрать нужный эффект
Ответ:
program n1;
var time, seconds, minutes, hours: integear;
begin
readln(time);
seconds := time mod 60;
time := (time - seconds) / 60;
minutes := time mod 60;
time := (time - minutes) / 60;
hours := time;
writeln (hours, ' часов ', minutes, ' минут ', seconds, ' секунд');
end.
Объяснение:
Написано на языке Pascal
231₈=1*8⁰+3*8¹+2*8²=1+24+128=153₁₀
10011011₂=1*2⁰+1*2¹+0*2²+1*2³+1*2⁴+0*2⁵+0*2⁶+1*2⁷=1+2+8+16+128=155₁₀
1CA₁₆=10*16⁰+12*16¹+1*16²=10+192+256=458₁₀
231₈*10011011₂-1CA₁₆=153₁₀*155₁₀-458₁₀=23257₁₀