Решить 20 ! дано целое число n (0< =n< =9). написать программу, вычисляющую сумму всех двузначных чисел(в записи которых нет цифры n) даны целые числа a и b.написать программу, подсчитывающую сумму двузначных чисел, у которых либо первая цифра равна a, либо вторая цифра равна b. написать программу, определяющую количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу n все через while

117

260

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

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

JesperWecksell

Информатика

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

Program tak; var a,b,c,n: integer; begin writeln('введите число n (0< =n< =9) '); readln(n); b: =0; for a: =99 downto 10 do begin if (n < > a div 10) and (n < > a div 10) then b: =a+b; end; writeln(b); end.эт перваяprogram tak2; var a,b,c,d: integer; begin writeln('введите два числа '); readln(a,b); d: =0; for c: =99 downto 10 do begin if (a = c div 10) or (b = c mod 10) then d: =c+d; end; writeln(d); end.эт вторая

Алиса228228

Информатика

4,5(10 оценок)

ну так во первых обяъвление процедуры должно быть

procedure inputmas1(var mas1: tmas );

во вторых ты забыл end; т.е

begin for i: =1 to 10 do begin mas1[i]: =random(n); write(mas1[i]: 3); end; end; {забытый end}

в третьих ты не написал основную прграмму т.е забыл begin и не вызвал процедуру

inputmas1

begin

clrscr; inputmas1(mas1);

readkey; end.

итого прога должна выглядеть примерно так

program massivuses crt; const n=10; type tmas=array[1..n] of integer; var mas1: tmas;

procedure inputmas1(var mas1: tmas); var i: integer; begin for i: =1 to 10 do begin mas1[i]: =random(n); write(mas1[i]: 3); end; end; {основная прога}begin clrscr; inputmas1(mas1); readkey; end.

держи ! пользуйся на здоровье и будь внимательнее.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.