7. С клавиатуры вводятся целые числа и последовательно суммируются. Когда их сумма превысит 200, найти количество введенных чисе
л, их сумму, среднее арифметическое и произведение.
8. Дано натуральное число n. Определите, сколько раз цифра «х» (х – вводится с клавиатуры) встречается в записи данного числа.
9. Даны натуральные числа от A до B (A<=B). Вывести на экран таблицу тех из них, которые делятся на 2, но не делятся на 7, и их квадраты и кубы. (ВЫВОД: число, квадрат, куб). Если напишите все 3 кода, дам лучший ответ Фото или текст - неважно
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
<u>//№7</u>
begin var (s,k,p):=(0,0,BigInteger(1)); var n:integer; repeat n:=ReadInteger; s+=n; p*=n; k+=1; until s>200; Writeln('Кол-во= ',k,', S=',s,' П= ',p,', Ср.арифм= ',s/k) end.
begin var n:=Abs(ReadlnInteger('n=')); var x:=ReadlnInteger('Введите цифру'); var k:=0; while n>0 do begin var d:=n mod 10; if d=x then k+=1; n:=n div 10 end; Writeln('Цифра ',x,' встретилась ',k,' раз(а)') end.
begin var (a,b):=ReadInteger2('Введите a и b:'); for var i:=a to b do if i.IsEven and (i mod 7<>0) then begin var j:=Sqr(BigInteger(i)); Writeln(i:10,j:19,i*j:28) end end.
<u>Примеры</u> Введите a и b: 123456789 123456796 123456790 15241578997104100 1881676417513891481839000 123456792 15241579490931264 1881676508963366945945088 123456794 15241579984758436 1881676600412845373014184 123456796 15241580478585616 1881676691862326763046336
Program zadanie; begin writeln('буря мглою небо кроет'); writeln('вихри снежные крутя'); writeln('то как зверь она завоет,'); writeln('то заплачет ,как дитя'); end.
1 Офис ворд 2- 3 3) 3 4) процесс <span> придания </span>текст у <span>определенного вида, связанный с определением левой и правой границ </span>текста<span>, абзацного отступа и </span>