Карпец Д. К.
1
А с муз. файлом не знаю))
Программа на паскале
var i,s:integer;
begin
s:=0;
for i:=15 to 50 do s:=s+i;
writeln('s = ',s);
end.
Результат:
s = 1170
Var
A,B:real;
Begin
Write('Первое число: ');
ReadLn(A);
Write('Второе число: ');
ReadLn(B);
A:=A*B;
Write('Третье число: ');
ReadLn(B);
A:=A*B;
WriteLn('Произведение данных чисел: ',A);
End.
1024*8/64*64=2 бита - это глубина цвета i
2 возводим в степень 2 =4 цвета по формуле(N=2^i)
Var a,a1,a2,a3:integer;
begin
write('a = ');
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
if (a1 mod 2 = 0)or(a2 mod 2 = 0)or(a3 mod 2 = 0)
then writeln('В числе есть четные цифры')
else writeln('В числе нет четных цифр');
end.
Пример:
a = 519
В числе нет четных цифр