int n, k, ans = 0; cin >> n >> k; while (n != 0) { if (n % 10 == k) ans++; n = n / 10; } cout << ans;
1. uses crt;
var k:integer;
a:real;
begin
clrscr;
a:=10;
k:=1;
while a<=20 do
begin
a:=a+a*10/100;
k:=k+1;
end;
writeln ('Норма превысит 20 км на ',k,' день');
end.
2.
uses crt;
var k:integer;
m:array [1..15] of real;
begin
clrscr;
m[1]:=0.1;
m[2]:=0.1;
for k:=3 to 15 do
begin
m[k]:=m[k-1]+m[k-2];
end;
for k:=1 to 15 do
writeln (k:3 ,' день',m[k]:8:1,' кг');
end.
Напишите и проверьте программу которая проверяет деление на 0.