Var unitsCount,
tensCount,
hundredsCount,
number : integer;
begin
readln(number);
unitsCount := number mod 10;
tensCount := (number div 10) mod 10;
hundredsCount := number div 100;
writeln('Count of units: ', unitsCount);
writeln('Count of tens: ', tensCount);
writeln('Count of hundreds: ', hundredsCount);
writeln('Sum of digits: ', unitsCount + tensCount + hundredsCount);
writeln('Multiplication of digits: ', unitsCount * tensCount * hundredsCount);
<span>end.</span>
Ответ:
Язык п.-Pascal ABC
var
n, m, k, i, j, t: integer;
a: array [1..100, 1..100] of integer;
b: array [1..100] of integer;
begin
readln(n, m, k);
for i := 1 to n do
for j := 1 to m do
a[i, j] := (i + j) mod k;
for t := 1 to k do
begin
for i := 1 to n do
for j := 1 to m do
if (not ((t - 1) <> a[i, j])) then
b[t] := b[t] + 1;
write(b[t]:3);
end;
end.
Объяснение:
можно было и побольше баллов дать, все таки это самое сложное из заданий Т-Т...
1)расческа,зубная щетка,зубная паста,мыло,мочалка,полотенце -Гигиена.
2) кисточки для рисования,карандаши - канцелярия.