Определите что будет напечатано в результате работы программы Решение представьте в виде таблицы program n1; var s,k: integer; begin s:=0 k:=1 while k<7 do begin s:=s+10; k:=k+1; end; writeln ('s=',s) end.
k = int(input('Начало диапазона ')) n = int(input('Конец диапазона ')) a = [0] * n # создание массива с n количеством элементов for i in range(n): # заполнение массива a[i] = i a[1] = 0
m = 2 # замена на 0 начинается с 3-го элемента
while m < n: # перебор всех элементов до заданного числа if a[m] != 0: j = m * 2 while j < n: a[j] = 0 j = j + m m += 1
# вывод простых чисел на экран b = [] for i in a: if a[i] != 0 and i >= k: b.append(a[i])
del a print(b)
Задание №2
count = 0 for i in range(13): for j in range(11): for k in range(9): if 185 == i*15+j*17+k*21: count += 1 print(i,j,k) print('Всего
Задание №3
x = int(input()) print('\n'.join( str(n) for n in range(x+1) if all(x != 0 and n % x == 0 for x in map(int, str(n
//Знаю, что это решение далеко от понятия "изящество" //Pascal ABC.NET v3.0 сборка 1111 var max1,max2,max3,i,maxi1,maxi2:integer; ar:array of integer; begin max1:=-2147483648; max2:=-2147483648; max3:=-2147483648; setlength(ar,1); readln(ar[0]); i:=0; repeat inc(i); setlength(ar,i+1); readln(ar[i]); until ar[i]=0; for i:=0 to i do if ar[i]>max1 then begin; max1:=ar[i]; maxi1:=i; end; for i:=0 to i do if (ar[i]>max2) and (i<>maxi1) then begin; max2:=ar[i]; maxi2:=i; end; for i:=0 to i do if (ar[i]>max3) and (i<>maxi1) and (i<>maxi2) then max3:=ar[i]; write('Max1=',max1,' Max2=',max2,' Max3=', max3); end.
k = int(input('Начало диапазона '))
n = int(input('Конец диапазона '))
a = [0] * n # создание массива с n количеством элементов
for i in range(n): # заполнение массива
a[i] = i
a[1] = 0
m = 2 # замена на 0 начинается с 3-го элемента
while m < n: # перебор всех элементов до заданного числа
if a[m] != 0:
j = m * 2
while j < n:
a[j] = 0
j = j + m
m += 1
# вывод простых чисел на экран
b = []
for i in a:
if a[i] != 0 and i >= k:
b.append(a[i])
del a
print(b)
Задание №2
count = 0
for i in range(13):
for j in range(11):
for k in range(9):
if 185 == i*15+j*17+k*21:
count += 1
print(i,j,k)
print('Всего
Задание №3
x = int(input())
print('\n'.join(
str(n) for n in range(x+1)
if all(x != 0 and n % x == 0 for x in map(int, str(n
//Pascal ABC.NET v3.0 сборка 1111
var
max1,max2,max3,i,maxi1,maxi2:integer;
ar:array of integer;
begin
max1:=-2147483648;
max2:=-2147483648;
max3:=-2147483648;
setlength(ar,1);
readln(ar[0]);
i:=0;
repeat
inc(i);
setlength(ar,i+1);
readln(ar[i]);
until ar[i]=0;
for i:=0 to i do
if ar[i]>max1 then
begin;
max1:=ar[i];
maxi1:=i;
end;
for i:=0 to i do
if (ar[i]>max2) and (i<>maxi1) then
begin;
max2:=ar[i];
maxi2:=i;
end;
for i:=0 to i do
if (ar[i]>max3) and (i<>maxi1) and (i<>maxi2) then max3:=ar[i];
write('Max1=',max1,' Max2=',max2,' Max3=', max3);
end.