Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Составить программу

Автор: Eleonora 9.4.2013, 18:44

(Delphi) Выдать последнюю цифру квадрата натурального числа от 1 до 9.

Автор: baldina 10.4.2013, 00:09

Код


for i:=1 to 9 do
begin
  sqr := i*i;
  d := sqr - (sqr div 10)*10;
  writeln (d);
end;

Добавлено через 4 минуты и 38 секунд
че-то заработалась я... все проще

Код


d := i*i mod 10;