Решить двумя способами.Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1. Пример: Введите число?
//PascalABC.Net 3.2 begin var n:=readinteger('Введите число: '); var count:=0; repeat if abs(n mod 10)=1 then count+=1; n:=n div 10; until n=0; write ('Единиц: ', count); end.
Uses crt; const n=3; m=5; var a:array[1..n,1..m] of integer; i,j:integer; begin randomize; for i:=1 to n do for j:=1 to m do begin a[i,j]:=random(15); write(a[i,j]:3); end; end.