Составить программу нахождения суммы нечетных чисел от 1 до 75 (циклов с заданным числом повторений)

261

437

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

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

Липапит

Информатика

4,8(97 оценок)

тут три иллюстрации нажми на них

Даша83934

Информатика

4,8(20 оценок)

Вот тебе для двоичной системы, дальше сам додумай,я просто в переводах в системы счисления не силён,только двоичную толком знаю)) program sist; var a,b,f: integer; c,p,i: string; begin readln(a); //вводим число b: =2; //это у нас будет степень, сам потом переделаешь,чтоб вводить её тоже while a> 0 do //тут задаём условие (пока a> 0 выполняем действия: ) begin //начало скобки(должен знать) if a mod b=0 then c: ='0' else c: ='1'; //проверяем условие(если остаток от деления а поделить на 2 равен 0 то строка равна символу 1 иначе символ 0) a: =a div b; //делим а на b без остатка i: =i+c; //присваиваем строке i результат: строка i+результат строки c end; //конец скобки for f: =length(i) downto 1 do //начинаем цикл от большего к меньшему(от количества символов в строке i до 1) p: =p+i[f]; //(к строке p прибавляем символ строки i) это относится к нашему циклу i: =p; //тут понятно думаю writeln(p, '(',b,')'); //выводим результат end.