В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
маша3057
маша3057
03.03.2021 04:04 •  Информатика

На вход программы поступает натуральное число. требуется определить сумму цифр в десятичной записи этого числа, которые не кратны 3 (считается, что 0 кратно любому числу). для решения этой ученик написал программу, но, к сожалению, его программа неправильная. var n, digit, sum: longint; begin
readln(n); sum : = n mod 10; while n > 0 do begin digit : = n mod 10; if digit mod 3 > 0 then sum : = digit; n : = n div 10; end; if sum > 0 then writeln(sum) else writeln('no') end. последовательно выполните следующее. 1. напишите, что выведет эта программа при вводе числа 654. 2.
укажите одно трёхзначное число, при вводе которого программа выведет правильный ответ. укажите это ответ. 3. найдите в программе все ошибки (их может быть одна или несколько). для каждой ошибки выпишите строку, в которой она допущена, и эту же строку в исправленном виде.

Показать ответ
Ответ:
Элчанкин
Элчанкин
12.12.2020 16:20

Відповідь:

Пояснення:

1/

program g;

var a: array [1..5] of integer;

   i,imax,imin, n: byte;

begin

imax:=1; imin:=1; n:=0;

writeln('Ââåäèòå ìàññèâ èç 5 ýëåìåíòîâ â ñòðîêó ÷åðåç ïðîáåë');

for i:=1 to 5 do

   begin

   read(a[i]);

   if a[i]>a[imax] then imax:=i;

   if a[i]<a[imin] then imin:=i;

   end;

if imax < imin then

   for i:=imax+1 to imin do

       if a[i] < 0 then  n:= n+1;

if imin < imax then

   for i:=imin+1 to imax do

       if a[i] < 0 then  n:= n+1;

if n>=1 then  writeln('Äà')

       else writeln('Íåò');

readln;

end.

2.

program kol;

var a: array [1..5] of integer;

   i,max,min, n ,m: byte;

begin

max:=1; min:=1;

n := 0; m := 0;

writeln('Ââåäèòå ìàññèâ èç 5 ýëåìåíòîâ â ñòðîêó ÷åðåç ïðîáåë');

for i:=1 to 5 do

   begin

   read(a[i]);

   if a[i]>a[max] then a[i]:= a[max];

   if a[i]<a[min] then a[i]:= a[min];

   end;

for i:=1 to 5 do

   begin

   if a[i] = a[max] then n:= n+1;

   if a[i] = a[min] then m:=m+1;

   end;

writeln('Êîëè÷åñòâî ìàêñèìàëüíûõ ýëåìåíòîâ  ', n);

writeln('Êîëè÷åñòâî ìèíèìàëüíûõ ýëåìåíòîâ  ', m);

readln;

end.

0,0(0 оценок)
Ответ:
GOLUM34ruS
GOLUM34ruS
08.08.2022 01:41

ответ:Внутри условных инструкций можно использовать любые инструкции языка Питон, в том числе и условную инструкцию. Получаем вложенное ветвление – после одной развилки в ходе исполнения программы появляется другая развилка. При этом вложенные блоки имеют больший размер отступа (например, 8 пробелов). Покажем это на примере программы, которая по данным ненулевым числам x и y определяет, в какой из четвертей координатной плоскости находится точка (x,y):

x = int(input())

y = int(input())

if x > 0:

   if y > 0:               # x>0, y>0

       print("Первая четверть")

   else:                   # x>0, y<0

       print("Четвертая четверть")

else:

   if y > 0:               # x<0, y>0

       print("Вторая четверть")

   else:                   # x<0, y<0

       print("Третья четверть")

В этом примере мы использовали комментарии – текст, который интерпретатор игнорирует. Комментариями в Питоне является символ # и весь текст после этого символа до конца строки.

Объяснение:В этом примере мы использовали комментарии – текст, который интерпретатор игнорирует. Комментариями в Питоне является символ # и весь текст после этого символа до конца строки.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота