Если двузначное число N имеет одинаковые цифры, то вывести на экран Н^2

@Maria_Добрая · Регистрация: 17.10.2010

Author24 — интернет-сервис помощи студентам

Если двузначное число N имеет одинаковые цифры, то вывести на экран Н ^ 2, если нет, то вывести на экран квадраты двузначных чисел, первое из которых имеет цифры ровные первой цифре числа N, второе число имеет цифры ровные второй цифре числа N.

@CodeR · 14.09.2012, 21:33

Pascal

Var n:integer;
Begin
    Repeat
     write('Введите двухзначное n: ');readln(n);
    Until n in [10..99];
    if n div 10 = n mod 10 then writeln(n*n)
     else writeln('1-ое ',sqr((n div 10)*10+n div 10),' 2-ое ',sqr((n mod 10)*10+n mod 10));
End.

@Черный ворон · 14.09.2012, 21:33

Pascal

var a,b,n:integer;
begin
writeln ('input number');
readln (n);
if ((n<10) or (n>99)) then begin writeln ('illegal number'); halt; end;
b:= n mod 10;
a:= n div 10;
if a=b then writeln(n*n) else
   begin
      writeln('first: ',((a*10+a)*(a*10+a)));
      writeln('second: ',((b*10+b)*(b*10+b)));
   end;
end.

@Maria_Добрая 0 / 0 / 0 Регистрация: 17.10.2010 Сообщений: 63
		1
	Если двузначное число N имеет одинаковые цифры, то вывести на экран Н^2 14.09.2012, 21:23. Показов 1502. Ответов 2 Метки нет (Все метки) Если двузначное число N имеет одинаковые цифры, то вывести на экран Н ^ 2, если нет, то вывести на экран квадраты двузначных чисел, первое из которых имеет цифры ровные первой цифре числа N, второе число имеет цифры ровные второй цифре числа N. 0

	14.09.2012, 21:33

Если двузначное число N имеет одинаковые цифры, то вывести на экран Н^2

Решение