Решение в паскале с div и mod 8 класс. дано четырехзначное число . нужно вычислить квадрат суммы всех цифр. !
298
310
Ответы на вопрос:
Var a,sum,i,ii: integer; begin sum: =0; readln(a); for i: =1 to 4 do begin ii: =a mod 10; a: =a div 10; sum: =sum+ii*ii; end; writeln(sum); end.
// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! function tr(self,aold,anew: string): string; extensionmethod; begin result: =''; var n: =min(aold.length,anew.length); for var i: =1 to self.length do begin var fnd: =false; for var j: =1 to n do if self[i]=aold[j] then begin result+=anew[j]; fnd: =true; break end; if not fnd then result+=self[i] end end; begin randomize; var k: =ord('a'); var s: =seqgen(50,t-> chr(random(26)+; s.println; s: =s.tr('ao','oa'); s.println end. пример gclcewxcscqmnuazhvkrswrvbqsiholmlarlfuyqaipvayhovb gclcewxcscqmnuozhvkrswrvbqsihalmlorlfuyqoipvoyhavb
Популярно: Информатика
-
мак18914.07.2020 06:38
-
mishishinatany06.11.2020 22:40
-
киреева231.05.2020 15:37
-
hromgugd17.06.2022 13:46
-
Ira51111.03.2021 00:41
-
zabzelilova17.09.2020 11:14
-
marinedzhan00003.01.2023 08:20
-
18фо10.10.2021 18:15
-
Ринат200612.06.2020 06:18
-
kirillyamont225.11.2022 23:18