Var a,b,c:integer;BeginWriteln('Введите числа a b c ');Readln (a,b,c);If (a=b) and (b=c) and (c=a) then Write ('Числа равны') else Write ('Числа не равны');End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
