Автор Иван Мещеряков задал вопрос в разделе Другие языки и технологии
дано трехзначное число. найдите сумму и произведение его цифр. и получил лучший ответ
Ответ от Вадим Вележенко[эксперт]
1.
var
i: longint;
first,second,third: byte;
begin
readln(i);
first := i div 100;
second := (i - (first * 100)) div 10;
third := (i - (first * 100) - (second * 10));
i := first+second+third;
writeln(i);
i := first*second*third;
writeln(i);
end.
Ответ от Ѐадик[гуру]
2var n,i:integer; s:longint;begin readln(n); for i:=1 to n do s:=s+sqr(i); writeln(n);end.3var a:array[0..10] of integer; n,i,s:integer;begin readln(n); For i:=0 to 10 do begin readln(a); if a/n=a mod n then s:=s+a; end; writeln(s);end.не проверял, но должны работать
2var n,i:integer; s:longint;begin readln(n); for i:=1 to n do s:=s+sqr(i); writeln(n);end.3var a:array[0..10] of integer; n,i,s:integer;begin readln(n); For i:=0 to 10 do begin readln(a); if a/n=a mod n then s:=s+a; end; writeln(s);end.не проверял, но должны работать
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: дано трехзначное число. найдите сумму и произведение его цифр.
Дано трехзначное число. Найдите сумму его цифр. что не правильно?
Вроде как и правильно на первый взгляд.... забыл я Паскаль, забыл да и Паскаль меня забыл...
подробнее...