Информатика

Переведите с паскаля на питон , . const m=1; var f: text; a: array[1..m] of 0..1; n, b,k, i: integer; begin assign(f,'input. txt'); reset(f); re...

Переведите с паскаля на питон , .

const m=1;
var
f: text;
a: array[1..m] of 0..1;
n, b,k, i: integer;
begin
assign(f,'input. txt');
reset(f);
readln(f, n);
for i: =1 to m do a[i]: =0;
for i: =1 to n do
begin
read(f, b);
a[b]: =1;
end;
close(f);
k: =0;
for i: =1 to m do k: =k+a[i];
writeln('k=',k);
end.

Другие вопросы по Информатике

Предмет
Информатика, 09.03.2019 16:06, starikulia958
Выбери верный ответ. 3.png выровненный по центру, или центрированный, текст располагается так: с обеих сторон каждой строки ширина свободного пространства одинакова. с обеих сторон края абзаца получаются неровными. у текста, выровненного по ширине, левая и правая границы образуют прямые линии. при этом последняя строка абзаца ведёт себя так, как при выравнивании по левому краю. у текста, выровненного по ширине, левая и правая границы образуют кривые линии. выравнивание по длине.
Ответов: 3
Предмет
Информатика, 10.03.2019 19:05, новичок625
Написать программу в паскале, чтобы на выходе получть: сколько раз за февраль температура была> 0, первую дату , когда она повысилась> 0, количество дней, когда температура отличалась от средней не более чем на 1 (температура вводится рандомно)
Ответов: 3
Предмет
Информатика, 11.03.2019 19:18, GoldTask
Дан произвольный треугольник авс. у для которого определен следующий набор характерных параметров: а, b, с — стороны треугольника; а, b, у — углы (в градусах); h — высота, опущенная на сторону с; s — площадь; р — периметр треугольника. по трем заданным параметрам вычислить все остальные. различные сочетания параметров определяют варианты . замечание: входные (исходные) и выходные значения углов представить в градусной мере. даны значения 3х сторон а, b, с; записать в паскале! ! )
Ответов: 1
Предмет
Информатика, 11.03.2019 23:19, svetakurilova1
Составить блок схему нахождения максимального числа из 40 целых чисел.
Ответов: 3
Предмет
Информатика, 14.03.2019 09:55, LyudaDolina
Дано натуральное число n. каких чисел больше четных или нечетных.
Ответов: 2
Предмет
Информатика, 14.03.2019 11:23, kirilnavrotskykiril
Инфа, 11 класс, логика с подробным объяснением
Ответов: 1
Знаешь верный ответ?
Переведите с паскаля на питон , . const m=1; var f: text; a: array[1..m] of 0..1; n, b,k, i: inte...

Вопросы по предметам

Категория
Английский язык, 21.06.2019 09:30
Категория
Английский язык, 21.06.2019 09:30