Написать программы на паскале. 1. вычислить произведение нечетных чисел в диапазоне от 40 до 20 2. определите и выведите на экран количество чисел между 20 и 100 ,которые делятся без остатка на 4,5 и 10 одновременно.
begin proizv:=1; count:=0; for i:=20 to 40 do begin if (i mod 2<>0) then proizv:=proizv*i; end; for i:=20 to 100 do if (i mod 45=0)then 3{Делятся на 4,5 и на 10=>делятся на 45} count:=count+1; writeln('Произведение равно: ',proizv); writeln('Число кратных чисел: ',count); end.
Когда что то качается, то обычно показывается не только скорость но и время до конца скачивания (при данной скорости), так что само значение скорости нужно только чтоб видеть увеличивается скорость, уменьшается или стабильна.
для размеров файлов 1 бит это одна ячейка, которая может быть или 0 или 1 1 б(байт) = 8 бит 1 Кб (килобайт) = 1024 б 1 Мб (мегабайт) = 1024 Кб 1 Гб (гигабайт) = 1024 Мб Для практического использования данных знаний вполне достаточно Если же интересно покопаться, то на самом деле есть килобайты и кибибайты и они отличаются, потому что кило = 1000, а киби = 2^10 = 1024.
Если говорить о скорости, то она стандартно считается в битах, килобитах, мегабитах и тд. Т.е. в 8 раз меньше соответственно байта, килобайта, мегабайта и тд. Но для практического использования это все не нужно)
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны. Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 type Point=record x,y:real end;
procedure GetPoint(c:char;var M:Point); begin Write('Введите координаты точки ',c,': '); Read(M.x,M.y) end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin var A,B,C:Point; GetPoint('A',A); GetPoint('B',B); GetPoint('C',C); var ab:=Dist(A,B); var bc:=Dist(B,C); var ac:=Dist(A,C); if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then Writeln('Треугольник существует') else Writeln('Треугольник не существует') end.
Тестовое решение: Введите координаты точки A: -6.9 -5.3 Введите координаты точки B: 0 11.4 Введите координаты точки C: 9 3 Треугольник существует
var i,count: integer;
proizv:longint;
begin
proizv:=1;
count:=0;
for i:=20 to 40 do
begin
if (i mod 2<>0) then
proizv:=proizv*i;
end;
for i:=20 to 100 do
if (i mod 45=0)then 3{Делятся на 4,5 и на 10=>делятся на 45}
count:=count+1;
writeln('Произведение равно: ',proizv);
writeln('Число кратных чисел: ',count);
end.