Среднее арифметическое для чётных цифр - Pascal ABC - Ответ 12066621

@AndalPorsh · 27.01.2018, 18:20 **[ТС]**

Спасибо

Добавлено через 23 минуты

Pascal

    var  
      a, b ,c:integer;
      j, k, t:integer;
      Sred:real;
      begin
        writeln('Введите  a, b, c');
        readln(a, b, c);
        j:= a  mod 2;
        k:= b  mod 2;
        t:= c  mod 2;
           if (j = 0) and  (k = 0)  then 
                                    begin
                                      if t = 0 then  begin
                                                       Sred:=(a + b + c)/3;
                                                       writeln('Sred = ', Sred);
                                                       readln;
                                                     end;
                                    end;
           if (j = 0)  and  (k = 0) then 
                                        begin
                                           if t <> 0  then
                                                          begin
                                                             Sred:=(a + b)/2;
                                                             writeln('Sred = ', Sred);
                                                             readln;
                                                          end;
                                        end;
                                        
                    if (j = 0)  and  (k <> 0) then 
                                        begin
                                           if t = 0  then
                                                          begin
                                                             Sred:=(a + c)/2;
                                                             writeln('Sred = ', Sred);
                                                             readln;
                                                          end;
                                        end;               
                   
                   if (j <> 0)  and  (k = 0) then 
                                        begin
                                           if t = 0  then
                                                          begin
                                                             Sred:=(c + b)/2;
                                                             writeln('Sred = ', Sred);
                                                             readln;
                                                          end;
                                        end;
                                        
        readln;
      end.

Вернуться к обсуждению:
Среднее арифметическое для чётных цифр Pascal ABC

Другие темы раздела
Pascal ABC Даны три целых числа A, B, C. Вывести на экран максимальное отрицательное число https://www.cyberforum.ru/ pascalabc/ thread2180713.html Даны три целых числа A, B, C. Вывести на экран максимальное отрицательное число ....как можно эту задачку решить?	Вычислить значение выражения Pascal ABC Вычислить значение выражения (25!+38!)/(6!+4!), используя функцию для вычисления n!
Pascal ABC Вычислить сумму первых n членов последовательности Всем привет, у меня задание пытаюсь его решить уже много дней, но не выходит... По заданной формуле члена последовательности с номером k составить две программы: 1)программу вычисления суммы первых n членов последовательности (k=1,2,...,n); 2)Программу вычисления суммы всех членов последовательности, не меньше числа e. (k+0,5)/(3k^2+2) https://www.cyberforum.ru/ pascalabc/ thread2179986.html	Pascal ABC Определить разницу между максимальным и минимальным двухзначным числом Написать программу, позволяющую определить разницу между максимальным и минимальным двухзначным числом, оканч. на 2 и кратным 4. Желательно сделать и с циклом for, и с while. https://www.cyberforum.ru/ pascalabc/ thread2179978.html
Поиск ошибок в программе Pascal ABC Program Ilgizzz; LABEL c; Const n=100;e=0.001; Var x,y,s,xn,xk,dx,a:real; i:integer; Function Fac(k: integer): longint; Begin If k=0 then Fac:= 1 else Fac:= k*Fac(k-1); End; Begin Writeln('Введите xn,xk,dx=>');	Pascal ABC Автоморфные числа https://www.cyberforum.ru/ pascalabc/ thread2179873.html Помогите пожалуйста, буду очень благодарен) Нужно также использовать счетчик for. Натуральное число называется автоморфным, если оно равно последним цифрам своего квадрата. Например, 252=625. Напишите программу, которая получает натуральное число N и выводит на экран все автоморфные числа, не превосходящие N. Пример: Введите N: 1000 11=1 55=25 66=36 2525=625
Pascal ABC Изменить программу Poisk применив цикл пока и добавить подсчет вхождений числа х в массив Program poisk; var T:array of integer; x,i:integer; begin for i:=1 to 10 do begin write('T='); read(T); end; readln(x); https://www.cyberforum.ru/ pascalabc/ thread2179820.html	Pascal ABC Необходимо найти суммы нечетных чисел меньше 5 и сумму четных больше пяти в шестизначном числе Необходимо найти суммы нечетных чисел меньше 5 и сумму четных больше пяти в шестизначном числе. Заранее благодарю за помощь.
Pascal ABC Циклически сдвинуть элементы массива на две позиции вправо https://www.cyberforum.ru/ pascalabc/ thread2179467.html Доброго времени суток уважаемые форумчане! Совсем недавно я начал изучать программирование и столкнулся с такой задачей для языка Pascal: "Дан линейный массив из N целых чисел (N=10). Циклически сдвинуть элементы этого массива на две позиции вправо. Указание: циклический сдвиг на одну позицию вправо - это присваивание каждого значения элементу справа, а последнего значения - первому элементу" ...	Pascal ABC Перевести код в жадный алгоритм https://www.cyberforum.ru/ pascalabc/ thread2179439.html Помогите пожалуйста перевести этот код в жадный алгоритм program vzr; uses crt; var x:integer; a:arrayof integer; j,i,n1,n2,n,k,z:integer; begin write('Кол-во ящиков с отходами типа А: ');
Как определить количество строк в массиве содержащих 0? Pascal ABC program gg; const n=5; var a:array of real; i,g,s,k:integer; begin a:=7.5; a:=-81.3; a:=3.48; a:=71.83; a:=-47.73; a:=87.5; a:=0; a:=-11.8; a:=0; a:=-73.41; a:=-83.06; a:=-65.7; a:=-58.45; a:=-25.91; a:=-49.91; a:=-43.67; a:=-73.57; a:=-57; a:=0; a:=-41.53; a:=49.51; a:=-0.73; a:=19.45; a:=27.81; a:=-13.48;	Pascal ABC Напишите программу, которая найдет сумму нечетных чисел, которые меньше 100 Напишите программу, которая найдет сумму нечетных чисел, которые меньше 100 https://www.cyberforum.ru/ pascalabc/ thread2179310.html

	27.01.2018, 18:20