/* Язык С++. * Запрашиваем у пользователя неопределенное количество целых чисел * пока не введёт значение = 0 * посчитать количество элементов введенных пользователем кратных 5, * а также вывести номер первого элемента, введенного пользователем значения = 5. * Ноль не учитывается (если 5 нет, то номер = 0) * Использовать do, while */ int main() { int n, c5 = 0, i = 1, i5 = 0; bool found5 = false; do { cout << "Число: "; cin >> n; if (n == 0) break; else if (n % 5 == 0) { c5++; if (i5 == 0) { i5 = i; } } i++; } while (true); cout << "Количество чисел, кратных 5: " << c5 << endl; cout << "Номер первого элемента, кратного 5: " << i5 << endl; return 0; }
// PascalABC.NET 3.2, сборка 1407 от 18.03.2017 // Внимание! Если программа не работает, обновите версию!
function Geron(a,b,c:real):real; // возвращает площадь треугольника со сторонами a,b,c begin var p:=(a+b+c)/2; // полупериметр Result:=sqrt(p*(p-a)*(p-b)*(p-c)) end;
function Sp(ab,bc,ca,ad,bd,cd:real):real; // возвращает площадь полной поверхности пирамиды begin Result:=Geron(ab,bc,ca)+Geron(ab,ad,bd)+Geron(bc,bd,cd)+ Geron(ca,cd,ad) end;
begin var ab1,bc1,ca1,ad1,bd1,cd1:real; Vvod(ab1,bc1,ca1,ad1,bd1,cd1); var Sp1:=Sp(ab1,bc1,ca1,ad1,bd1,cd1); var ab2,bc2,ca2,ad2,bd2,cd2:real; Vvod(ab2,bc2,ca2,ad2,bd2,cd2); var Sp2:=Sp(ab2,bc2,ca2,ad2,bd2,cd2); var d:=Sp1-Sp2; if d>0 then Writeln('Площадь Sполн 1й пирамиды больше на ',d) else if d<0 then Writeln('Площадь Sполн 2й пирамиды больше на ',-d) else Writeln('Площади Sполн пирамид равны'); end.
декодирование это изменение предыдущего кодирования, а обычное кодирование ну это скодировал не изменяя и все
я может и тупая но вроде так