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

перевести с 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.

Показать ответ
Ответ:
avisotska
avisotska
05.11.2021 13:34
PROGRAM B05;
VAR
    a,b:integer;

BEGIN
  writeln('a). Введите два целых числа');
  write('Первое число: '); readln(a);
  write('Второе число: '); readln(b);
 
  if (a=b) then
    writeln('Числа равны.')
  else if (a<b) then
    writeln('Наименьшее число = ', a)
  else
    writeln('Наименьшее число = ', b);
  writeln('');

  write('б). Введите число: '); readln(a);
  if (a>0) then begin
    b:=a-30;
    writeln('Число неотрицательное. ', a,'-30=',b);
  end else if (a<0) then begin
    b:=a+70;
    writeln('Число отрицательное. ', a,'+70=',b);
  end else
    writeln('Число равно 0');
  writeln('');
 
  write('с). Введите целое число: '); readln(a);
  if odd(a) then
    writeln('Число ', a,' нечетное')
  else
    writeln('Число ', a,' четное');

END.

Даны 2 целых числа найти наименьшее из них. вести число, если не отриц. вычислить 30 прибавить к нем
0,0(0 оценок)
Ответ:
glushkovanastya
glushkovanastya
06.04.2021 22:34
1.
Числа можно вводить
int k,l; cout<<"->"; cin>>k>>l; if (k==l) { k=0; l=0; cout<<k<<" "<<l<<endl; }  else   {  l=k;  cout<<k<<" "<<l<<endl;  }
если хочешь без ввода удали cin и присвой значения

2.
int k,l,z; cout<<"->"; cin>>k>>l>>z;  if (k>0)  {  k*=k;  cout<<k<<endl;  }   if (l>0)  {  l*=l;  cout<<l<<endl;  }   if (z>0)  {  z*=z;  cout<<z<<endl;  }   if (k<0)  {  cout<<k<<endl;  }   if (l<0)  {  cout<<l<<endl;  }   if (z<0)  {    cout<<z<<endl;  }  
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота