ABC Pascal Найти количество нулевых цифр строки.

Знания

Информатика

1 ответ:

Катя МММ3 года назад

0 0

PascalABC.NET 3.2
begin
Writeln(ReadString.Where(x -> x = '0').Count);
end.

Пример ввода:
znanija.com/task/24890848

Пример вывода:
1

Читайте также

Определите значение переменной S после выполнения следующих операторов: S:=10; For i:=1 to 4 do S:=S - i;

djdfdjdf [318]

1. Полная программа:

Var S,i: Integer;
Begin
S:=10; For i:=1 to 4 do S:=S - i;
writeln(s);
End.

2. Значение переменной S: 0.

0 0

1 год назад

Приведите пример системы команд исполнителя. Нужны собственные примеры

MaxRusin

Ответ:

1)crtl+alt+del

2)кнопка windows+p

Объяснение:

1)выключает комп

2) открывает меню показа экрана на проектор

дальше не помню

0 0

3 года назад

Перечислите все известные вам графические формы представления информации

kb453

Рисунки, схемы, чертежи, фотографии

0 0

3 года назад

Найдите значение при выполнении программы S:=1; For z:=1 to 8 do a[z]:=sqr(z); for k:=1 to 8 do if a[k]>9 then a[k]:=2; for z

Елена42 [14]

1)S=1*2*2*2*2*2=32

2) с

3)f

0 0

3 года назад

Помогите написать программу, пожалуйста :) Дана последовательность n целых чисел. Отсортируйте ее. Формат входных данных В перв

anra [385]

var
n, i, j, AskTheMountains: longint;
a: array of longint;
fl: Text;

begin
assign(fl, 'input.txt');
reset(fl);
readln(fl, n);

SetLength(a, n);
for i := 0 to (n - 1) do
readln(fl, a[i]);

close(fl);
assign(fl, 'output.txt');
rewrite(fl);

for i := 0 to n - 1 do
for j := i to n - 1 do
if (a[i] > a[j]) then
begin
AskTheMountains := a[i];
a[i] := a[j];
a[j] := AskTheMountains;
end;

for i := 0 to n-1 do
writeln(fl, a[i]);
close(fl);
<span>end.</span>

0 0

3 года назад