Ответ:
var i,k:integer;
a:array [1..8] of integer;
begin
write('Массив');
for i:=1 to 8 do
begin
a[i]:=random (75)-50;
write(a[i]:4);
if (a[i]<13) and (a[i] mod 8 = 0 ) then k:=k+1
end;
writeln;
writeln('Количество элементов, меньших 13 и кратных 8 равно ',k);
end.
1 гб = 1024 мбайт
1 мб = 1024 кбайт
4 гб ≈ 4000 мб
8228 кб ≈ 8,228 мб
8,228 + 4000 + 1600 = 5608,228
5608, 228 / 700 ≈ 8,01
<em>Ответ:</em> понадобится 9 СD дисков.
Ответ:
Объяснение:
using System;
public class Program
{
public static void Main()
{
int[] A = new int[30];
var rand = new Random();
for(int i = 0; i < 30; i ++) // Заполняем в цикле массив случайными числами от 0 до 100
A[i] = rand.Next(0, 100);
int kolichestvo, summa;
kolichestvo = 0;
summa = 0;
for(int i = 0; i < 30; i ++) //цикл по элементам массива
{
if((A[i] % 5) == 0)// операция "%" - остаток от деления, если = 0 значит поделилось нацело, если не равно нулю, значит поделилось с остатком
{
if((A[i] % 3) != 0)
{
kolichestvo = kolichestvo + 1;
summa = summa + A[i];
}
}
}
Console.Write("Сумма: ");
Console.Write(summa);
Console.Write(" Количество: ");
Console.Write(kolichestvo);
}
}
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Point=record
x,y:real;
name:char
end;
Vector=record
x,y,l:real;
end;
function CreatePoint(px,py:real):Point;
begin
With Result do begin
x:=px;
y:=py;
end
end;
function CreateVector(A,B:Point):Vector;
begin
With Result do begin
x:=B.x-A.x;
y:=B.y-A.y;
l:=Sqrt(x*x+y*y)
end
end;
function IsNormal(A,B:Vector):=Abs(B.x*A.x+B.y*A.y)<=1e-6;
begin
var x,y:real;
Write('Введите координаты x и y точки A: '); Read(x,y);
var A:=CreatePoint(x,y);
Write('Введите координаты x и y точки B: '); Read(x,y);
var B:=CreatePoint(x,y);
var AB:=CreateVector(A,B);
Write('Введите координаты x и y точки C: '); Read(x,y);
var C:=CreatePoint(x,y);
var BC:=CreateVector(B,C);
if Abs(AB.l-BC.l)>1e-6 then begin
Writeln('Стороны AB и BC не равны');
Exit
end;
if not IsNormal(AB,BC) then begin
Writeln('Стороны AB и BC не перпендикулярны');
Exit
end;
Write('Введите координаты x и y точки D: '); Read(x,y);
var D:=CreatePoint(x,y);
var CD:=CreateVector(C,D);
if Abs(AB.l-CD.l)>1e-6 then begin
Writeln('Стороны AB и CD не равны');
Exit
end;
var AD:=CreateVector(D,A);
if Abs(AB.l-AD.l)>1e-6 then Writeln('Стороны AB и ADC не равны')
else Writeln('Точки образуют квадрат с точностью не ниже 0.000001')
end.
<u>Пример</u>
<u>Здесь заданы координаты квадрата, сдвинутого относительно осей координат и повернутого на угол 30 градусов против часовой стрелки. Поэтому числа такие "некруглые".</u>
Введите координаты x и y точки A: -0.4641 -4.4641
Введите координаты x и y точки B: 3.5359 2.4641
Введите координаты x и y точки C: 10.4641 -1.5359
Введите координаты x и y точки D: 6.4641 -8.4641
Точки образуют квадрат с точностью не ниже 0.000001
Вопрос сформулирован скорее всего неверно
Если отвечать по существу исходя из того что понял, то можно перефразировать как "придумайте информационные услуги"
Если поискать в поисковиках, то по моему перефразированному вопросу можно найти ответ, всего доброго!
