1.
program z1;
var a,b:integer;
begin
write('Введите 2 двузначных числа: ');
readln (a,b);
write('Произведение цифр числа ',a,' и числа ',b,' равно ',(a div 10) * (a mod 10) * (b div 10) * (b mod 10))
end.
2.
program z2;
var a,b:integer;
begin
write('Введите 2 числа: ');
readln (a,b);
writeln(a,'% от ',b,' равно ',b*a/100);
write(b,'% от ',a,' равно ',a*b/100)
end.
Объяснение:
Если во второй задаче надо найти какой процент составляет число а от числа b и какой процент составляет число b от а, то меняем строчки
writeln(a,'% от ',b,' равно ',b*a/100);
write(b,'% от ',a,' равно ',a*b/100)
на
writeln('Число ',a,' от числа ',b,' составляет ',a/b*100,'%');
write('Число ',b,' от числа ',a,' составляет ',b/a*100,'%')
Поделитесь своими знаниями, ответьте на вопрос:
Какова частота кадров видео если, объем информации равен 750 Мбайт, при 4-х битной кодировке пикселей, размер картинки 1024*768 и длительностью 10 с
import random
N = [random.randint(0, 100) for i in range(10)]
print ("Array is:", N)
sum_less_50 = 0
Count_less_50 = 0
sum_more_50 = 0
Count_more_50 = 0
for elem in N:
if elem >= 50:
Count_more_50 += 1
sum_more_50 += elem
else:
Count_less_50 += 1
sum_less_50 += elem
print("Awerage of nums, that < 50: ", end = "")
if Count_less_50 > 0:
print(sum_less_50 / Count_less_50)
else:
print(0)
print("Awerage of nums, that >= 50: ", end= "")
if Count_more_50 > 0:
print(sum_more_50 / Count_more_50)
else:
print(0)