Паскаль. написать программу вычисления произведения n чисел то есть 1*2*3**n,причем, если n=0, то произведение равно 1.число множителей не должно превышать 33.при вводе числа более 33, сообщить об ошибке и повторить ввод.
программа не будет давать верный ответ при n>20 т.к. нет такого целочисленного типа переменных. uint64-самый большой из всех
var i, n, p: uint64; a: array [1..10000] of integer; begin read(n); p:=1; for i:=1 to n do begin a[i]:=i; p:=p*a[i]; end; if n>33 then writeln('eror') else if n=0 then writeln('p=1') else writeln('p=',p); end.
Пусть a,b,c - стороны треугольника (и их длины). Условие существование треугольника: Пусть а - наибольшая из сторон, тогда против нее будет лежать наибольший угол, который можно определить по теореме косинусов:
Текст программы приводится ниже. var a,b,c,t,cosA:real; begin Write('Введите длины сторон треугольника: '); Readln(a,b,c); if (a<b+c) and (b<a+c) and (c<a+b) then begin if a>b then begin if a<c then begin t:=a; a:=c; c:=t end end else if b>c then begin t:=a; a:=b; b:=t end else begin t:=a; a:=c; c:=t end; cosA:=(sqr(c)+sqr(b)-sqr(a))/(2*b*c); if cosA=0 then Writeln('Треугольник прямоугольный') else if cosA<0 then Writeln('Треугольник тупоугольный') else Writeln('Треугольник остроугольный') end else Writeln('Треугольник построить нельзя') end.
Тестовое решение: Введите длины сторон треугольника: 4 6.1 3.7 Треугольник тупоугольный
1. Частота 48 КГц требует для записи 48 000 отсчетов в секунду на каждый канал. 2. Стереофоническая (двухканальная) запись потребует 48 000 х 2= 96 000 отсчетов в секунду. 3. Каждый отсчет содержит 16-битный уровень сигнала (амплитуду); 16 бит это 16/8=2 байта. 4. Итого, для записи одной секунды сигнала потребуется 2х96 000=192 000 байт 5. Размер файла 2 Мбайта - это 2х1024х1024=2 097 152 байт. 6. Определяем максимальное время звучания при указанном размере файла: 2 097 152 / 192 000 ≈ 10.92 (секунды)
программа не будет давать верный ответ при n>20 т.к. нет такого целочисленного типа переменных. uint64-самый большой из всех
var
i, n, p: uint64;
a: array [1..10000] of integer;
begin
read(n);
p:=1;
for i:=1 to n do
begin
a[i]:=i;
p:=p*a[i];
end;
if n>33 then
writeln('eror')
else
if n=0 then
writeln('p=1')
else
writeln('p=',p);
end.