Сумел решить вот эту задачу при помощи этого кода
with open( ‘C:/17.txt’ ) as f:
content = f.readlines()
n = 0
sum = int(0)
for i in range(0, len(content)-1):
k = int(content[i])
l = int(content[i+1])
u = k % 3
y = l % …
program n_1;
var v0, s: real;
begin
writeln(‘Вычисление длины пути торможения автомобиля’);
write(‘Введите начальную скорость (м/с)>>’);
readln (v0);
s:=v0*v0/10;
writeln (‘До полной остановки автомобиля пройдет ‘,
…
Продолжаем выбирать лучший язык программирования 2021, и сегодня за звание лучшего поборются: Pascal vs. C#, Python vs. Rust.
— Читать дальше «Битва языков программирования 2021 продолжается»
…
Группа людей называется современниками, если был такой момент, когда они могли собраться все вместе и обсуждать какой-нибудь важный вопрос. Для этого в тот момент, когда они собрались, каждому из них должно было уже исполниться 18 лет, но …
Отбросьте результаты исследований TIOBE, ведь в нашем баттле именно вы выбираете лучший язык программирования 2021.
— Читать дальше «Баттл языков программирования 2021 стартует уже завтра»
…
У меня есть программа на Pascal:
var n,k,t,z: integer;
c: array[1..100] of integer;
begin
readln(n);
k:=n;
t:=1;
for var x:=1 to n do c[x]:=x;
while k>1 do
begin
c[t]:=0; // этот куст съеден
z:=t; // запомн…
Описать процедуру NOD2(A, B) целого типа, находящую наибольший общий делитель (НОД) двух целых положительных чисел A и B, используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B ≠ 0; НОД(A, 0) = A. С помощью этой процедуры найти на…
Это код на pascal:
program ChckMonoton;
var
s: string;
function FuncIsCorrect(s: string): boolean; // функция, проверяющая правильность записи заданной в векторном виде БФ
var i, n: byte;
begin
i := 1;
n := length(s);
if s <…
Помогите пожалуйста перевести код в питон
var
x1, x2: integer;
procedure Pol(a, b: integer);
var
pr, pf: real;
begin
writeln;
pr:=sqrt(sqr(a)+sqr(b));
pf:=arctan(x2 / x1);
writeln(‘Полярный радиус: ‘, pr);
writeln(‘Полярный угол: …
Подскажите пожалуйста, каким способом нужно решать такого типа задачу? А то никаких идей не приходит в мою пустую голову 🙁
Помогите с вопросом в теме.Желательно быстро. Язык Python/Pascal/C++
const n=26;
var s: char;
i, j, k: integer;
begin
k:=n;
for i:=1 to n do
begin
while (k<>0) do
begin
s:=’A’;
for j:=1 to k do
begin
write (s,’ ‘);
s:=succ(s);
end;
dec(k);
…
Не знаю Pascal, но ситуация сложилась так, что нужно перевести код с него в java или C#
program gauss;
{ pascal program to perform simultaneous solution by Gaussian elimination }
{ procedure GAUSS is included }
{ to increa…
var a,b,c,d,n,m:integer;
begin
repeat
writeln(‘Введите часы прибытия поезда [0..23]’);
readln(a);
writeln(‘Введите минуты прибытия поезда [0..59]’);
readln(b);
writeln(‘Введите часы отправления поезда [0..23]’);
readln(c);
writeln(‘Вве…
Помогите пожалуйста перевести код с Pascal на Python, сам не понимаю!
Код Pascal:
var
numDel, i, j: longint;
d: array[1..4] of longint; begin
for i := 210235 to 210300 do begin
numDel := 0;
for j := 2 to (i div…
DataArt приглашает всех желающих участвовать в неформальном турнире Международной юмористической блиц-олимпиады по программированию Proggy-Buggy Contest2021
— Читать дальше «Олимпиада Proggy-Buggy Towel Contest 2021»
…
мне необходимо заменить в вещественной матрице все отрицательные числа нулями, она должна храниться в текстовом файле. Я соображаю как это сделать на паскале, но в си я новичок.
//для создания
Var f:file of integer;
i,n,m:integer;
Begi…
Пожалуйста, помогите перевести код на Java
const SortByZad=true;
SortByTime=false;
type Uch=record
Num:byte;
Time:longint;
ZadCount:byte;
Zad:array[1..9] of boolean;
enabled:boolean;
end;
var ar:array[1..10…
Решаю задачку по электростатике и необходимо реализовать программу на паскале. Паскаль со школы уже к сожалению не помню, тк изучаем питон. Собственно написал программу на питоне, не могли бы пожалуйста помочь перевести ее в Pascal
1 прогр…
uses crt;
function KolDel(n:longint):integer;//функция для подсчета делителей
var i,k:integer;
begin
k:=1;//пока делитель 1, само число
for i:=1 to round(sqrt(n))do//от 1 до крня из числа(дальше нет смысла проверять)
if n mod i=0 then k:=k…
Допустим, есть такая строчка на Паскале:
a: array [‘A’..’Z’] of integer;
Как эта строчка должна быть записана на Python?
Переделать паскаль в питон
n – исходное число,
sum – сумма четных чисел.
var
n: longint;
sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum +…
Пытался перевести из паскаля в питон:
var a: array[1..100] of integer;
i, k: integer;
begin
for i:= 1 to 100 do
if i*2 >= 65 then
a[i]:= 1
else
a[i]:= 0;
for k:= 1 to 100 do
for i:= 1 to 100 do
if a[…
Помогите, пожалуйста, перевести из пакаля в питон. Не получается массив задать, как и сами переменные i,j,k.
var a: array[1..100, 1..100] of integer;
i, j, k: integer;
…
n = int(input())
a = []
m0 = 0
m1 = 0
ms = 0
for i in range(6):
a.append(int(input()))
a.append(0)
for i in range(6, n):
a[6] = int(input())
if a[0] % 2 == 0 and a[0] > m0:
m0 = a[0]
if a[0] % 2 == 1 and a[0] >…
Вот мой код на Pascal:
Var A,k:integer;
Begin
k:=0;
Read(A);
While A <> 0 do
Begin
Read(A);
k:=k+1;
End;
Write(k)
End.
Вот текст задачи:
Программа получает на вход последовательность целых неотрицательных чисел, каждо…
Вот мой код на Pascal:
Var A,k:integer;
Begin
k:=0;
Read(A);
While A <> 0 do
Begin
Read(A);
k:=k+1;
End;
Write(k)
End.
Вот текст задачи:
Программа получает на вход последовательность целых неотрицательных чисел, каждо…
uses Crt;
Var Imja1, Imja2: String;
R1, R2, v1, v2: LongInt;
S1, S2, T1, T2: Real;
begin ClrScr;
write(‘ Ввести имена двух планет: ‘);
ReadLn(Imja1, Imja2);
writeln(‘ Ввести радиусы орбит планет: ‘);
ReadLn(R1, R2);
writeln(‘ Ввести ско…
write (‘Input first number: ‘);
readln (x);
write (‘Input second number: ‘);
readln (y);
writeln (‘x = ‘, x, ‘, y = ‘, y);
writeln (‘Changing values… changing values…’);
b := x;
x := y;
y := b;
writeln (‘x = ‘, x, ‘, y = ‘, y);
…
Что писать в if? Я очень долго думал, но никак не могу придумать. Нужно определить входит ли точка с координатами (x, y) в закрашенную область.
…
Свежие комментарии