var a,i:integer;
begin
write('Введите число: ');
readln(a);
for i:=1 to 7 do
writeln(a,' * ',2*i+1,' = ',a*(2*i+1));
end.
Результат:
Введите число: 4
<span>4 * 3 = 12
4 * 5 = 20
4 * 7 = 28
4 * 9 = 36
4 * 11 = 44
4 * 13 = 52
4 * 15 = 60</span>
Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
Задача решается перебором всех целых положительных двухзначных чисел (в цикле от 11 до 99 включительно с шагом 1). Для того, чтобы выяснить, кратно ли число 3, необходимо использовать функцию остатка от целочисленного деления (mod).
1.При
аналоговом представлении физическая величина принимает бесконечное множество
значений, ее значения изменяются непрерывно. При дискретном представлении
физическая величина принимает конечное множество значений, величина изменяется
скачкообразно.
2,3
В процессе дискретизации звука либо изображения производится кодирование, то
есть присвоение каждому элементу конкретного значения в форме кода.
<span><span>4.
Качество<span> кодирования </span>зависит<span> от частоты </span>дискретизации.</span><u /></span>