Регистрация
Пикачу1111111111
22.10.2022 12:22
Информатика
Есть ответ 👍

Pascalabc.net если можно то сделайте по простому после ярмарки к вам подошел мужчина с немного странными взглядом. он сказал, что он ремесленник и изготавливает детские игрушки. более того, за изготовление игрушки он просит от казны всего один сентенниаль (местная валюта). но за каждую следущую игрушку он хочет на один сентенниаль больше, чем за предыдущую. рассчитайте сколько сентенниалей предстоит заплатить за х игрушек. формат входных данных вводится целое число х (1 < = x < = 1000) формат выходных данных выводится целое число сентиннелей, которые предстоит заплатить казне за х игрушек примеры входные данные 5 выходные данные 15

134
371
Посмотреть ответы 2

Ответы на вопрос:

nafani1
nafani1
4,6(75 оценок)
// pascalabc.net 3.3 begin   var x: =readinteger;   writeln((1+x)*x div 2); end. пример: 6 21
vitaliygrg
vitaliygrg
4,4(1 оценок)
Не самый рациональный метод решения, но как говорится  чем смог тем ) var a,b,c,x,kc,kn,k1,k2: integer;   begin  kc: =1;   kn: =1;   k1: =0;   k2: =0;   a: =0;   b: =0;   writeln('введите число x');   read(x);   while x> 0 do begin  c: =x mod 10;   if c mod 2=0 then begin  inc(k1);   a: =a+c*kc;   kc: =kc*10;   end;   if c mod 2< > 0 then begin  inc(k2);   b: =b+c*kn;   kn: =kn*10;   end;   x: =x div 10;   end;   if k1> k2 then writeln('четных больше нечетных') else if k1=k2 then writeln('количество четных = количеству нечетных') else writeln('четных меньше нечетных');   writeln(a,' ', b);   end. 

Популярно: Информатика