Все категории

3 года назад

Запишите пж эту задачу на паскале: Дано натуральное число. Определить, сколько раз в нем встречается цифра 3

Знания

Информатика

1 ответ:

darianka [1]3 года назад

0 0

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var (n,k):=(ReadInteger('n='),0);
while n>0 do begin
 if n mod 10=3 then k+=1;
 n:=n div 10
 end;
Writeln('Количество троек в числе равно ',k)
end.

Пример
n= 163243
Количество троек в числе равно 2

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

ДАНА СУММА НАЧИСЛЕННОЙ ЗАРАБОТНОЙ ПЛАТЫ ВЫЧИСЛИТЬ ПОДОХОДНЫЙ НАЛОГ 12% 1% на профсоюзный налог 1% на пенсионный налог полученную

Елена Яковлева [565]

var s: real;
begin
readln(s);
s := s - (0.12 + 0.01 + 0.01) * s;
writeln('Сумма : ', s);
end.

0 0

3 года назад

Прочитать массив из 10 элементов и написать каких элементов больше четных или нечетных. ( На Паскале)

Сергей803

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

begin
var m := ReadArrInteger(10);
var (o, e) := (m.Where(t -> t.IsOdd).Count, m.Where(t -> t.IsEven).Count);
Println(o > e ? 'Нечетных больше' : o = e ? 'Поровну' : 'Четных больше');
end.

Пример:
1 2 3 4 5 6 7 8 10 10
Четных больше

0 0

3 года назад

Как с телефона выйти из знаний?

Ульяния [435]

Нажать кнопку на телефонеhome

0 0

4 года назад

СОСТАВЬТЕ НЕ МЕНЕЕ ТРЕХ ВАРИАНТОВ ПРОГРАММЫ ОПРЕДЕЛЕНИЯ НАИМЕНЬШЕГО ИЗ ТРЕХ ДАННЫХ ЧИСЕЛ.... Пожалуйста

petrova92

var

a, b, c, m : integer;

begin

read (a, b, c);

m := a;

if b < m then m := b;

if c < m then m := c;

writeln (m);

end.

var

a : array [1..3] of integer;

i, m : integer;

begin

m := a[1];

for i := 2 to 3 do

if a[i] < m then m := a[i];

writeln (m);

end.

var

a, b, c : integer;

begin

read (a, b, c);

if (a <= b) and (a <= c) then writeln (a)

else if (b <= c) and (b <= a) then writeln (b)

else writeln (c);

end.

0 0

4 года назад

F(x) =x²-3x+9 если x≤3 = (1)/(x²+6) если x>3 Решите функцию в программе c++

Нюрыч [21]

Ответ:

int func(const int X) {

if (X <= 3) {

return (X * X - 3 * X + 9);

}

else if (X > 3) {

return 1 / (double)(X * X + 6);

}

Объяснение:

0 0

4 года назад