На вход программы поступает натуральное число. требуется определить сумму цифр в десятичной записи этого числа, которые не кратны 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. найдите в программе все ошибки (их может быть одна или несколько). для каждой ошибки выпишите строку, в которой она допущена, и эту же строку в исправленном виде.
Відповідь:
Пояснення:
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.
ответ:Внутри условных инструкций можно использовать любые инструкции языка Питон, в том числе и условную инструкцию. Получаем вложенное ветвление – после одной развилки в ходе исполнения программы появляется другая развилка. При этом вложенные блоки имеют больший размер отступа (например, 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("Третья четверть")
В этом примере мы использовали комментарии – текст, который интерпретатор игнорирует. Комментариями в Питоне является символ # и весь текст после этого символа до конца строки.
Объяснение:В этом примере мы использовали комментарии – текст, который интерпретатор игнорирует. Комментариями в Питоне является символ # и весь текст после этого символа до конца строки.