#include<iostream>
using namesapce std;
int main ()
{
setlocale(LC_ALL,"rus");
int a,b,c;
cout<<"Введите значение a"<<endl;
cin>>a;
cout<<"Введите значение b"<<endl;
cin>>b;
cout<<"Введите значение c"<<endl;
cin>>c;
if(a=b&&a=c) cout<<"Введенные вами числа равны""<<endl;
else cout<<"Числа не равны"<<endl;
system("pause");
return 0;
}
Если что непонятно пиши - отвечу
Var t1,t2:text; s:string; n:integer;
begin
assign(t1,'t1.txt'); reset(t1);
assign(t2,'t2.txt'); rewrite(t2);
n:=0;
while not eof(t1) do begin
readln(t1,s);
n:=n+1;
writeln(t2,n:5,' ',s);
end;
close(t1); close(t2);
<span>end.</span>
О<u>К</u>А
===================
Ввода: микрофон, джойстик, цифровой микроскоп, дисковод, веб камера, цифровой фотоаппарат
Вывода: видеопроектор, плоттер
Program p1;
Uses crt;
Var A: array [1..10] of integer;
i,k: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
k:=0;
for i:=1 to 10 do
begin
if (a[i]>10) and (a[i]<30) then
k:=k+1;
end;
writeln ('Количество чисел в диапазоне (10;30) =',k);
Readln;
readkey;
end.