Найти все трехзначные числа, которые являются полными квадратами и записываются тремя нечетными цифрами

@nikitkaya · Регистрация: 15.01.2015

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

Найти все трехзначные числа, которые являются полными квадратами и записываются тремя нечетными цифрами.

@ZX Spectrum-128 · 15.01.2015, 18:13

Pascal

var
  i:integer;
  yes:boolean;
begin
yes:=false;
for i:=100 to 999 do
  if (trunc(sqrt(i))*trunc(sqrt(i))=i)
       and odd(i mod 10) and odd(i mod 10) and odd((i mod 100) div 10) then
    begin
      writeln(i);
      yes:=true;
    end;
  if not yes then
    writeln('Таких чисел нет.');
  readln;
end.

@nikitkaya 0 / 0 / 0 Регистрация: 15.01.2015 Сообщений: 4
		1
	Найти все трехзначные числа, которые являются полными квадратами и записываются тремя нечетными цифрами 15.01.2015, 17:32. Показов 2845. Ответов 1 Метки нет (Все метки) Найти все трехзначные числа, которые являются полными квадратами и записываются тремя нечетными цифрами. 0

	15.01.2015, 18:13

Найти все трехзначные числа, которые являются полными квадратами и записываются тремя нечетными цифрами

Решение