Объект, порождающий информацию и представляющий её в виде сообщения- это ИСТОЧНИК ИНФОРМАЦИИ.
Важное замечание: Для типа long long int требуется от компилятора поддержка стандарта C99.
Приложил файл расширения .cpp, чтобы обойти ограничение сайта. При работе с кодом измените на .c
#include <stdio.h>
long long int NOD(long long int var1, long long int var2) //Алгоритм Евклида
{
while(var1 != var2)
{
if(var1 > var2)
var1 = var1 - var2;
else var2 = var2 - var1;
}
return var1;
}
long long int NOK(long long int var1, long long int var2)
{
return (var1 * var2) / NOD(var1, var2);
}
int main()
{
long long int N, K;
scanf("%lli%lli", &N, &K);
printf("Количество оборотов: %lli\n", NOK(N, K));
}
var a:array of integer;
N,i,k:integer;
function f(a:integer):Boolean;
begin
if (a mod 2=0) then f:=True else
f:=False;
end;
BEGIN
k:=0;
writeln('Введите количество элементов массива');
readln(N);
SetLength(A,N);
writeln('Введите массив');
for i:=0 to N-1 do begin
read(a[i]);
if (f(a[i])=True) then k:=k+1;
end;
writeln('Количество чётных элементов массива = ',k);
end.
Вводите с клавиатуры кол-во элементов массива, а затем сам массив.
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
1,25Кбайт=1280байт
1280/120 байт/с - скорость передачи
250/(1280/120)= 23,4375с - время передачи 250 байт информации