===== PascalABC.NET =====
begin
var n := ReadInteger('Укажи длину массива:');
var a := ArrRandom(n, -5, 5);
var k := a.Println.Count(p -> p = 2);
if k = 0 then
Print('Нет элементов, равных 2')
else
Print('Число элементов, равных 2:', k)
end.
Исходный файл предоставлен в расширении .cpp, измените на .c
#include <stdio.h>
long int NOD(long int var1, long int var2)
{
while(var1 != var2)
{
if(var1 > var2)
var1 = var1 - var2;
else var2 = var2 - var1;
}
return var1;
}
long int NOK(long int var1, long int var2)
{
return var1 * var2 / NOD(var1, var2);
}
int main(void)
{
long int var1, var2;
scanf("%ld%ld", &var1, &var2);
printf("НОК(%ld, %ld) = %ld\n", var1, var2, NOK(var1, var2));
}
uses crt;
var n:integer;a,b:real;
begin
clrscr;
writeln('Введите номер');
readln(n);
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
case n of
1:writeln(a+b);
2:writeln(a-b);
3:writeln(a*b);
4:writeln(a/b);
end;
end.
var
x: <em>real </em>:= 1;
begin
while (x <= 13) do
begin
writeln('y(', x, ') = ', ln(cos(x)));
x += 0.4;
end;
<span>end.</span>
<span>Делишь несколько раз на 10, каждый раз определяешь остаток от деления, если остаток -0, то счетчик + 1</span>