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) в закрашенную область.
…
Первый день голосования закончился. По его итогам Swift уверенно обошёл PHP, а Kotlin немного не дотянул до Java. Смотрите результаты здесь. Сегодня соревнуются следующие две пары языков: Assembler/Pascal и С++/Cobol.
— Читать дальше «Битва языков про…
const N = 10;
var
arr: array[1..N] of byte;
i, k: byte;
begin
randomize;
for i:=1 to N do begin
arr[i] := random(80);
write(arr[i]:3);
end;
writeln;
for i:=1 to N-1 do
for k:=i+1 to …
В то время как Java и язык Си меняются местами на вершине рейтинга TIOBE, мы решили выяснить, какие языки программирования, наши подписчики любят больше всего. Завтра начинается баттл языков программирования
— Читать дальше «Примите участие в баттле я…
uses crt;
var a:array[1.100] of real;
n,i:byte;
s,e:real;
begin
clrscr;
writeln(‘n ‘);
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:+s+a[i];
end;
s:=s/n;
for i:=1 to n do
write(a[i],’ ‘);
writeln;
if s>=0 th…
Предыдущий топик другого юзера удалили( тогда продублирую я.
Задача
Автобусные остановки расположены через каждые K метров от начала улицы, то есть на расстоянии 0, K, 2K, 3K и т.д. метров от начала. Света прошла от начала улицы N метров, …
Прошу прощения, столкнулся с проблемой… Не могу перевести код из Pascal в Java
Pascale:
var
uzel,otrezok,i:integer;
begin
readln(uzel,otrezok);
for i:=1 to trunc(sqrt(uzel)) do
if i*(uzel div i)=uzel then
begin
…
l = [5,3,6,1,2,4]
Количество уникальных сумм, которые кратны 2, равно 4.
Мне нужно написать код, который будет выполнять условия.
Олимпиада пройдёт в весёлой атмосфере и предназначена для всех энтузиастов программирования: учеников, студентов, тестировщиков и других.
— Читать дальше «Международная олимпиада по программированию Proggy-Buggy Contest 2020»
…
В файле записано несколько строк текста (не более 100). Каждая строка содержит не более 100 символов (не считая символов окончания строки). Требуется написать программу, выводящую те же строки в том же порядке, только каждая строка «перевё…
Program Premier_liga_2;
var B, Diff: array [1..16] of integer;
Team: array[1..16] of string;
I, K, X, Z, P: integer;
St: string;
begin
writeln(‘Введите названия команд и полученные ими очки’);
for I:=1 to 16 do
begin
write(I…
program File51;
var
S1,S2,S3,S4: String;
F1,F2,F3,F4: File of Real;
El1,El2,El3:Real;
File1end,File2end,File3end:boolean;
Function comparison(A,B,C:Real; Ba,Bb,Bc:Boolean): Boolean;
begin
if not(Ba) and not(Bb) and not(Bc) then
if (…
Свежие комментарии