Переведите код задач с Pascal на Python

@DOBRblU_KOROLb · Регистрация: 03.05.2020

Студворк — интернет-сервис помощи студентам

Переведите несколько задач с pascal на python.

1)Дано название футбольного клуба. Напечатать его на экран столбиком.

uses crt;
var i,j,k: integer;
s: string;
begin
write('Название клуба: ');
readln(s);
for i:=1 to length(s) do
writeln(s[i]);
end.
2)Дано предложение. Определить, сколько в нем одинаковых соседних букв.

var k1,k2:byte; i:integer; s:string;
begin
writeln('input string:');
readln(s);
k1:=1;
k2:=1;
for i:=1 to length(s)-1 do
begin if k1>k2 then k2:=k1;
if s[i]=s[i+1] then k1:=k1+1 else k1:=1;
end;
writeln(k2);
readln;
end.
3)Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n.

Program 123;
var
N :integer; // Данное число
otvet :integer; // ответ
i:integer; // счетчик в цикле
begin
Writeln('Введите целое число (N > 0) N=');
readln(N);
i:=1;
While i*i <= N do inc(i);
otvet:=i*i;
// вывод ответа
Writeln('Ответ = ',otvet)
end.

@iSmokeJC · 03.05.2020, 12:33

Комментарий модератора

Сообщение от DOBRblU_KOROLb

Переведите несколько задач с pascal на python.

Почитайте несколько строк Правил форума.
5.16. Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
4.9. Используйте тэги форматирования текста и редактор формул для удобства восприятия ваших сообщений другими пользователями.
4.3. Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@DOBRblU_KOROLb 0 / 0 / 0 Регистрация: 03.05.2020 Сообщений: 6

	Переведите код задач с Pascal на Python 03.05.2020, 10:41. Показов 1594. Ответов 1 Метки pascal, python (Все метки) Переведите несколько задач с pascal на python. 1)Дано название футбольного клуба. Напечатать его на экран столбиком. uses crt; var i,j,k: integer; s: string; begin write('Название клуба: '); readln(s); for i:=1 to length(s) do writeln(s[i]); end. 2)Дано предложение. Определить, сколько в нем одинаковых соседних букв. var k1,k2:byte; i:integer; s:string; begin writeln('input string:'); readln(s); k1:=1; k2:=1; for i:=1 to length(s)-1 do begin if k1>k2 then k2:=k1; if s[i]=s[i+1] then k1:=k1+1 else k1:=1; end; writeln(k2); readln; end. 3)Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n. Program 123; var N :integer; // Данное число otvet :integer; // ответ i:integer; // счетчик в цикле begin Writeln('Введите целое число (N > 0) N='); readln(N); i:=1; While ii <= N do inc(i); otvet:=ii; // вывод ответа Writeln('Ответ = ',otvet) end. 0