Цикл с предусловием
Общая структура цикла c предусловием выглядит так (например):
var x, y:integer;
begin
…
while условие do действие;
…
Как только условие прекратит выполняться, цикл завершит свою работу.
Вариант для всех общий. Необходимо написать программу. Вместо … вставить свои части кода.
Общая структура будет выглядеть примерно так:
Program …;
var x, y: …;
begin
y := 0;
…
while (y < 100) do y := y + x;
…
end.
Необходимо представить четыре теста: х = 12, х = 35, х = 1 и х = 288.
На Питоне:
path = 'F:/file.txt'
with open(path, 'r', encoding='utf-8') as f:
data = f.read()
f.close
a = [0 for i in range(10)]
for char in data:
if char == '0': a[0]+=1
elif char == '1': a[1]+=1
elif char == '2': a[2]+=1
elif char == '3': a[3]+=1
elif char == '4': a[4]+=1
elif char == '5': a[5]+=1
elif char == '6': a[6]+=1
elif char == '7': a[7]+=1
elif char == '8': a[8]+=1
elif char == '9': a[9]+=1
print(a)
digit = max(a)
if digit > 0:
print(f'Самая часто встречающаяся цифра в файле {a.index(digit)}. Она встречается {digit} раз.')
else:
print('В файле нет цифр.')
Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Подробнее - на -