3 года назад

Составить программу, которая определяет однозначные, двухзначные, трехзначные, четырехзначные или пятизначныеЯзык: ABCPascal

Знания

Информатика

1 ответ:

JimPhillips41 [9]3 года назад

0 0

var a,b:integer; {a-число, b-количество знаков числа}

begin

readln(a);

while a<>0 do

begin

b:=b+1;

a:=a div 10;

end;

writeln(b);

end.

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

Запиши верный ответ. Дано число 665000000. Данное число можно представить в виде 6,65⋅10

fli [17]

665000000= 6,65*10^8

0 0

4 года назад

Прочитать ещё 2 ответа

сколько сообщений можно закодировать алфавитом, состоящим из 0 и 1 с длиной кода 4

Катя Лазарева

$2^4 = 16$ сообщений

0 0

4 года назад

Вывести на экран все двузначные числа, которые кратны 3 и не кратны 5 Вывести на экран все двузначные числа которые в сумме свои

ogasec [14]

1.
var i:integer;
begin
for i:=10 to 99 do
if (i mod 3=0)and(i mod 5<>0)
then write(i,' ');
end.

Результат:
12 18 21 24 27 33 36 39 42 48 51 54 57 63 66 69 72 78 81 84 87 93 96 99

2.
var i:integer;
begin
for i:=10 to 99 do
if i div 10 + i mod 10 = 15
then write(i,' ');
end.

Результат:
69 78 87 96

0 0

4 года назад

Дан массив из 7 элементов. Найти произведение четных чисел и кол-во нечётных

Marusya 25 [7]

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadArrInteger(7);
Write('Произведение четных: ',
a.Where(x->x.IsEven).Aggregate(1.0,(x,y)->x*y),
', количество нечетных: ',a.Where(x->x.IsOdd).Count)
end.

Пример
-15 8 42 11 95 118 -27
Произведение четных: 39648, количество нечетных: 4

0 0

4 года назад

Прочитать ещё 2 ответа

Найдите сумму всех положительных элементов матрицы. на паскале

Nesio [823]

VAR
 n, m, sum, i, j: Integer;
 a: Array [1..10000] of Array [1..10000] of Integer;
BEGIN
 Read(n, m);

 For i := 1 to n do
 For j := 1 to m do Read(a[i][j]);

 For i := 1 to n do
 For j := 1 to m do
 If (a[i][j] > 0) then sum := sum + a[i][j];

 Write(sum);
END. 

Но для экономии времени и сил можно не создавать массив:
VAR
 n, m, sum, el, i, j: Integer;
BEGIN
 Read(n, m);

 For i := 1 to n do
 For j := 1 to m do begin 
 Read(el);
 If (el > 0) then sum := sum + el;
 End;

 Write(sum);
END.

0 0

4 года назад

Прочитать ещё 2 ответа