// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Print('Нулей:', ArrRandom(ReadInteger('n='), -10, 10)
.Println.Where(t -> t = 0).Count)
end.
Program summa;
var a,b,s:double;
begin
write('Введи первое число: ');
readln(a);
write('Введи второе число: ');
readln(b);
s:=a+b;
writeln(round(s));
end.
Program program1;
var
x, y: real;
begin
writeln('Введите X: ');
readln(x);
y := x * 2 + 3;
writeln('y = ', y);
end.
Ответ:
Возможно тебе нужно это, а возможно и нет кто тебя знает
Объяснение:
#include <iostream>
#include <locale.h>
void main()
{setlocale (LC_ALL,".1251");
cout<<"Введите a,b,c,d \n";
cin>>a>>b>>c>>d;
if (a == b || a == c || a == d || b == c || b == d || c == d)
{
cout<<"Равные друг другу числа имеются"<<endl;
}
else
{
cout<<"Равных друг другу чисел нет"<<endl;
}
system("pause");
}