Reks45
27.01.2020 09:25

перевести с Pascal код на Python

var
A: array[0..10] of integer;
i: byte;
begin
writeln(' Введите массив размера ', 10, ':');
write(' ');
for i := 1 to 10 do
read(a[i]);
i := 10; //Присваивание начального значения.
{Проверяем значения массива: }
repeat
dec(i) {Увеличиваем номер до тех пор,
пока не получим меньшее от a[10] число или не
выйдем за граници массива: }
until ((a[i] < a[10]) and (a[i] > a[1])) or (i = 0);
{Выводим результат: }
if i > 1 then
begin
write(' Последний элемент a[K], удовлетворяющий');
write(' условию ', a[1], ' < a[K] < ', a[10]);
writeln(' имеет номер K = ', i, ':');
write(' a[', i, '] = ', a[i])
end
else
begin
write(' Элементов a[K], которые удовлетворяли бы условию ');
writeln('a[1] < a[K] < a[10], в этом массиве нет: ');
write(' 0')
end
end.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
leomax2
15.08.2021 07:20
# -*- coding: utf-8 -*-"""Created on Tue Oct 18 16:38:28 2016 @author: imdunkind""" print("Потерянная карточка")n=int(input("Введите кол-во карточек: "))summaCards=0 # сложим все карточкиsumma_range_i=0 # сумма всех чисел for i in range(1,n+1):    summa_range_i+=i # cумма всех N карточек, карточки не повторяются от 1 до N   for i in range(1,n):    a=int(input("Введите номиналы карточек: "))    summaCards+=a # сумма всех карточек, кроме одной, карточки не повторяются 1 не хватает   # summa_range_i-summaCards - разность сумм, узнаем какой карточки нет   print("Потерянная карточка - {}".format(summa_range_i-summaCards))
0,0(0 оценок)
Ответ:
madina319
20.05.2020 14:17
Program lol (input, output);
var a, n, b, i, p,s,g m:integer;
c:real;
begin
n:=Random(10000);
writeln (n);
a:=n;
b:=0;
c:=0;
p:=1;
g:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
c:=c+s;
g:=g*s;
b:=b-1;
end;
writeln (c);
writeln (g);
end.

program lol (input, output);
var a, b, i, z:integer;
begin
b:=0;
a:=3;
z:=0;
while a > 2 do
begin
read (a);
z:=0;
for I:=2 to a do
begin
if a mod I = 0 then
begin
z:=z+1;
if (a=I) and (z=1) then
b:=b+1;
end;
end;
end;
writeln (b);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота