Pascal ABC. Процедура.
-----------------------------------------------------
var
N:longint;
min:longint;
count: byte;
tmp, z: longint;
procedure MinAndCount(var a: longint);
begin
readln(N);
z := N;
count := 0;
min:=10;
while N<>0 do
begin
if n mod 10 < min then
min := n mod 10;
n := n div 10;
end;
tmp := min;
while z<>0 do
begin
if (z mod 10)=tmp then inc(count);
z:=z div 10;
end;
writeln('Самая маленькая цифра = ',min, ' встречается = ', count, ' раз(а).');
readln;
end;
begin
write('Введите число: ');
MinAndCount(N);
end.
1-крик
2-барабан
3-интернет
4-почта
5-телефон
6-костер
7-телевизор
8-радио
9-морзе
10-приемник
<span>#include <iostream>
using namespace std;
int main() {
double a,b,c,d;
cout << "Параметры ямы: ";
cin >> a >> b >> c;
cout << "Объем воды: ";
cin >> d;
if (a*b*c>=d) cout << "YES";
else cout << "NO";
return 0;
<span>}
Пример:
</span><span>Параметры ямы: 2 1.8 0.4
Объем воды: 3.2
NO</span></span>
Нас учили такие задачи решать с конца. Смотри у тебя дано число 38 (его можно разделить на 2 или вычесть 3). Поскольку оно делиться на 2 нацело используем деление. Получаем 19 (на 2 не делиться следовательно вычитаем 3)=16 и т.д... И у тебя скорее всего опечатка, потому что как ни крут и за 5 шагов не выполнить. Скорее всего нужно из числа 2 в 38. ну или решение должно занять 6 шагов, что очень вряд ли
1 команда 38/2=19
2 команда 19-3=16
1 команда 16/2=8
1 команда 8/2=4
1 команда 4/2=2
1 команда 2/2=1
Т.к начинали с конца считать полученный набор команд записывается с конца : 111121
Ответ:
Объяснение:
const
n = 100;
var
a:array[1..n] of integer;
i, k:integer;
begin
k:=1;
for i:= 1 to n do begin
a[i]:=k;
if (i mod 2 = 0) then k:=k + 1;
end;
for i:= 1 to n do
write(a[i], ' ');
readln;
end.
