Опубликовано 26.01.2018 по предмету Информатика от Гость

7. С клавиатуры вводятся целые числа и последовательно суммируются. Когда их сумма превысит 200, найти количество введенных чисел, их сумму, среднее арифметическое и произведение.

8. Дано натуральное число n. Определите, сколько раз цифра «х» (х – вводится с клавиатуры) встречается в записи данного числа.

9. Даны натуральные числа от A до B (A<=B). Вывести на экран таблицу тех из них, которые делятся на 2, но не делятся на 7, и их квадраты и кубы. (ВЫВОД: число, квадрат, куб).
Если напишите все 3 кода, дам лучший ответ
Фото или текст - неважно

Ответ оставил Гость

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

//№7

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.

Пример
56
-231
220
118
-52
31
45
110
Кол-во= 8, S=297 П= 2679630617664000, Ср.арифм= 37.125

//№8

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.

Пример
n= 1235361212
Введите цифру 2
Цифра 2 встретилась 3 раз(а)

//№9

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.

Примеры
Введите a и b: 123456789 123456796
123456790 15241578997104100   1881676417513891481839000
123456792 15241579490931264   1881676508963366945945088
123456794 15241579984758436   1881676600412845373014184
123456796 15241580478585616   1881676691862326763046336

Введите a и b: 6 20
         6                 36                         216
         8                 64                         512
        10                100                        1000
        12                144                        1728
        16                256                        4096
        18                324                        5832
        20                400                        8000