Написать программу для трехзначного числа, которая выполняет заданные операции

@woodjuu · Регистрация: 04.03.2018

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

@JuriiMW · 05.03.2018, 08:59

Pascal

var n,s : Integer;
begin
  Read(n);
  if odd(n) then
    begin
      s:=0;while n<>0 do begin inc(s,sqr(n mod 10));n:=n div 10;end; WriteLn(s);
    end
  else
    WriteLn(n mod 10);
end.

@woodjuu 0 / 0 / 0 Регистрация: 04.03.2018 Сообщений: 6
		1
	Написать программу для трехзначного числа, которая выполняет заданные операции 04.03.2018, 19:30. Показов 3166. Ответов 1 Метки нет (Все метки) Написать программу для трехзначного числа, которая выполняет следующие операции, если число четное, то на экран выводиться последняя цифра числа, а если нечетное, то находится сумма квадратов его цифр __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Написать программу для трехзначного числа, которая выполняет заданные операции

Решение